for my $file ( @ARGV ) { # ... }