Select Code to Download

++$Y{$y} if grep { $y eq $_ } @ARGV;

my $re;
if ( @ARGV ) {
...

  ++$Y{ $y } if $y && ( !$re || $y =~ $re );
}

my $re;
my %valid;
...

  ++$Y{ $y } if $y && ( !%valid || $valid{ $_ } );
}