Select Code to Download

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

while ( (my $key, my $value) = each %partners) {
    if ($item eq $key) {
...
        ##another, different action;
    }
}