@files = <*>;
 foreach $file (@files) {
   print $file . "\n";
 }