for my $file (@ARGV) {
   open (IN, $file);
   ....

}