use strict;
use warnings;
use Data::Dumper;

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

##</code><code>##

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