foreach (@ARGV) { ++$Y{$y}, next if $y eq $_; }