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

##</code><code>##

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

##</code><code>##

while (@ARGV && $ARGV[0] =~ /^-/) {
    my $arg = shift @ARGV;
    last if $arg eq '--';
    ($max = $arg || shift(@ARGV)), next if $arg =~ s{^-x}{};
    $inject = 1, next if $arg eq '-i';
    ++$debug, next if $arg eq '-d';
    die "Unknown option '$arg'\n";
}