Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
    $Y{$y} += grep $y eq $_, @ARGV;
```

Select or download this

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