sub _compare_match_WWPN {

    die "no parameter!\n" unless @_;
    my ($w_ref) = @_;
   
    for my $name (@{ $w_ref }){

        my $found;

        for my $rmtkey (sort keys %wwns){
            if (grep {$name eq $_} @{ $wwns{$rmtkey} }){
                print "Found '${name}' that belongs to $rmtkey\n";
                $found = 1;
                last;
            }
        }
        if (! $found){
            print "$name not found!\n";
        }
    }
    return;
}

##</code><code>##

Enter your wwns to search for? More than one, comma seperated: ---> 2009000g123456ff,500143802483cfe5
2009000g123456ff not found!
Found '500143802483cfe5' that belongs to rmt42