Select Code to Download

use strict;
use warnings;
...
my %hash=('a'=>1 , 'b' =>2 , 'c'=>3,);
%hash=@array;
print Dumper \%hash;

@hash{keys %hash}=(0) x scalar(keys %hash);