Select Code to Download

$foo = { 'SOMETHING_01' => {
                             'CLASS' => [
...
                                        ],
                           }
       }

my $fee;
%{$fee->{'SOMETHING_02'}} = %{$foo->{'SOMETHING_01'}};
$fee->{'SOMETHING_02'}{CLASS}[0]{VALUE} = 'SQUEEK';