map {my $key = $_; $key =~ s/^([a-z]+­).*/$1/i; push @{$alphaKe­ys{$key}}, $_} keys %hoh;

##</code><code>##

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