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

##</code><code>##

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

##</code><code>##

    $Y{$y} += (grep $y eq $_, @ARGV) || 1;