my $a = []; my $b = []; push @$a, $b; push @$b, $a;