...
  next unless $y;
  $Y{$y} += @ARGV ? (grep $y eq $_, @ARGV) : 1;