open(my $file1, "<", "/tmp/filelist.txt")
 or die "Could not open file $!";
 while (my $row = <$file1>) {
 chomp $row;
 print "'more $row'\n";
 }
 print "done\n";