my $b = [ $a->[1,2,3,4] ];