HASH: while(my ($key, $value) = each %ids) {
    for my $item (@names) {
        if($item =~ m/$key/) {
            push @groups, $item;
            next HASH;
        }
    }
}