$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@==(1)x pop #### 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