foreach my $file (map {/\*/ ? glob($_) : $_} @ARGV) {