$r->{sizes} = $data2;

##</code><code>##

        $r->{sizes} = [ map { { %{$_} } } @{$data2} ];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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