Select Code to Download

my %a = map { $a{$_} => 1 unless undef, 0..5 } 0..11;

my %a = map { 1 unless undef, 0..5 } 0..11;

use strict;
use warnings; 
...
#%a = map { $a{$_} , 1 unless undef, 0..5 } 0..11;
%a = map { 1 unless undef, 0..5 } 0..11;
print Dumper \%a;

 
Use of uninitialized value in range (or flip) at C:\gash.pl line 10.
Use of uninitialized value in range (or flop) at C:\gash.pl line 10.
...
          '9' => 10,
          '5' => 6
        };