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