Select Code to Download

my %Y;
while (<>) {
...
      foreach (@ARGV) { $Y{$y}++,next if $y eq $_;  }
  } else { $Y{$y}++ }
}

scalar @ARGV ? $Y{$y} += @ARGV : $Y{$y}++;

foreach (@ARGV) { next if $y eq $_; # don't count any occurrences of
                                    # $y
                  $Y{$y}++,
                }