while ( (my $key, my $value) = each %partners) { if ($item eq $key) { ($partners,$email,$nickname,$realname,$postcode,$phone) = (@$value); push (@allmembers, $item); my @partners_split = split / /, $partners; push (@allmembers, @partners_split); } }