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);
[download]

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)