foreach $i (<*.perl>) { print "$i\n"; }