Opps. Yes you are right. There had been an assignment to an array, but it turned out messy. The array went, but not some of the cargo :).

Thanks for pointing it out. Fixing a couple of transcription errors and turning things around a little I'd write it as:

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