##
qwurx [shmem] ~> perl -e '$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@==(1)x pop' 10
Attempt to free unreferenced scalar: SV 0xdd0968, Perl interpreter: 0xda4010 at -e line 1.
Segmentation fault
##
##
$=[@z]%=1+$#z--).=0