You can also do it using a hash slice, which allows you to define/set values to multiple keys at once. Try the following:

use Data::Dumper;
use strict;

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

print Dumper \%hash;
[download]