use Data::Dumper;
use strict;

my %hash=(a=>1, b=>2, c=>3);
@hash{'d', 'e', 'f'} = (4, 5, 6);

print Dumper \%hash;