in reply to How do I rewrite this foreach() loop as a map{} ?

How about simply:

my @c = map $hash{$_}, sort keys %hash;

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)