$hash2->{'bob'} = $hash1->{'a'}->{'b'}->{'c'}; #### use strict; use Data::Dumper; my ($hash1,$hash2); $hash2->{'bob'} = $hash1->{'a'}->{'b'}->{'c'}; print Dumper $hash1, $hash2;