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