my $r1 = [ 1 ];
my $r2 = [ 2, $r1 ];
push @$r1, $r2;

print_r($r1);