for( keys %hoh ) {
    push @{ $alphakeys{ (/^([a-z]+)/)[0] } }, $_;
}