%newhash = %{$framearray};

##</code><code>##

my %framearray;
$framearray{$frameno}{$drawerno} = $tempno;
%newhash = %framearray;

##</code><code>##

$framearray{$frameno}->{$drawerno} = $tempno;