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

my %hash=('a'=>1 , 'b' =>2 , 'c'=>3,);
my @keys = keys %hash;

@hash{@keys} = (0) x @keys;
print Dumper \%hash;