Select Code to Download

$hash2->{'bob'} = $hash1->{'a'}->{'b'}->{'c'};

use strict;
use Data::Dumper;
...
$hash2->{'bob'} = $hash1->{'a'}->{'b'}->{'c'};

print Dumper $hash1, $hash2;