Select Code to Download

$VAR1 = {
          'A' => [
...
                   1
                 ]
        };

#!usr/bin/perl
use strict;
use warnings;
...
$entry = [ map defined $_ ? $_ : 0, @$entry ];
}
print Dumper(\%hash);