mine at 57:

#0        1         2         3         4         5         6
#123456789012345678901234567890123456789012345678901234567890
 $_=pop,$n=pop;{$l^($_=($_+$n/$_)/2)||die$_,$/;$l=$_;redo}
[download]

~Particle *accelerates*