use Storable qw/dclone/;
$newhash=dlcone($framearray);