Description of problem:
WORKS
#!/usr/bin/perl
open(RPMS, "ls /home/tomi/*.rpm |");
@packages = [];
for ($i = 0; $line = <RPMS>; $i++) {
	chop($line);
	@packages[$i] = $line;
}
close(RPMS);

print @packages;

-----------------------------------------

ONLY NEW LINES IN OUTPUT
#!/usr/bin/perl
open(RPMS, "ls /home/tomi/*.rpm |");
@packages = [];
for ($i = 0; $line = <RPMS>; $i++) {
	@packages[$i] = chop($line);;
}
close(RPMS);

print @packages;

Version-Release number of selected component (if applicable):
perl-5.8.0-88.4

How reproducible:
Always

Steps to Reproduce:
Example code
  

Actual Results:  Only new lines in output

Expected Results:  Should have file list.