Quote

kabel@kabelskiste:~$ perl
%hash1 = (1 .. 8 );
%hash2 = (4 .. 11);

@hash2{keys %hash1} = values %hash1;

foreach (keys %hash2) {
print $_, $hash2{$_}, $/;
}

89
67
12
45
34
78
1011
56
kabel@kabelskiste:~$