foreach my $arg (@ARGV) { foreach (glob $arg) { print; } }