for my $glob ( @ARGV ) { for my $file ( glob $glob ) { process $file; } }