while (<>) {
   do_stuff_to $_;
}

or 

for (@ARGV) {
   do_stuff_to $_;
}