use Storable qw(dclone);

my $fee->{'SOMETHING_02'} = dclone($foo->{'SOMETHING_01'});