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