use Storable qw( dclone );
        $r->{sizes} = dclone($data2);