my $a = []; @$a = (0, $a, 0); $a 