Select Code to Download

use Data::Dumper ('Dumper');
(my(%a) = map({((undef, (0 .. 5)) or ($a{$_}, 1));} (0..11)));
print(Dumper((\%a)));