Select Code to Download

while ( (my $key, my $value) = each %partners) {
    if ($item eq $key) {
...
        push (@allmembers, @partners_split);
    }
}

sub do_thing {
    my ($partners,$item,$action) = @_;
...
    
    # do other stuff with %partners, $item, $key, $value, etc
});

while ( (my $key, my $value) = each %partners) {
    if ($item eq $key) {
        ...
    }
}

------------
:Wq
Not an editor command: Wq