use Clone qw( clone );
        $r->{sizes} = clone($data2);