Hmmm, that is a very peculiar use of arrays that you have
there ... unfortunately, it does not compile with Perl
version 5.6.0 (yes yes i know i know - i should upgrade).
Here is something that does work:
print $_,$/ for map scalar reverse, qw(fee fie foe fum);
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)
|