Select Code to Download

c:\>perl -nle"push @{$h{$_}},$ARGV}{print qq[$_ found in @{$h{$_}}] fo
+r keys %h" 0.dat 1.dat 2.dat 3.dat 4.dat 5.dat 6.dat 7.dat 8.dat 9.da
+t

$perl -nle'push @{$h{$_}},$ARGV}{print "$_ found in @{$h{$_}}" for key
+s %h' ?.dat

#! perl -nl

...
}{

print qq[$_ id in @{$h{ $_ }}] for keys %h;

c:\>theScript.pl 0.dat 1.dat 2.dat 3.dat 4.dat 5.dat 6.dat 7.dat 8.dat
+ 9.dat

$perl theScript.pl ?.dat