Changing the unpack param to b* gives you a bit string. Unpack won't give you a list directly.

my @array= map { qw(heads tails)[$_] } (split (//, unpack ("b*", $bits
+)));
print "@array";
[download]

—John