$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@
+==(1)x pop
[download]

Segfaults with perl v5.18.2:

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: 0x
+da4010 at -e line 1.
Segmentation fault
[download]

Works with v5.10.1 though. Looks like the segfault happens here:

$=[@z]%=1+$#z--).=0
[download]

Can't (for now) figure out why.