my $a = [];
my $b = [$a];
push @$a,  $b;
1~~$a;  # though it is possible