my %Y;
 
    while (<>) {
        ...
        my ($y) = ...;
        next unless $y;

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

##</code><code>##

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

##</code><code>##

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