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