Now that you know what it does, here is what it probably should be:

my @x = qw( a b c );
[download]

or perhaps even:

my @x = 'a' .. 'c';
[download]

And remember, testing is fun! Cheers!

perl -MTest::More=no_plan -e'is_deeply [a=>b=>c],[qw(a b c)]'
perl -MTest::More=no_plan -e'is_deeply [a=>b=>c],["a".."c"]'
[download]

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)