@b=(0,1);push@b,$b[-2]+$b[-1]for 2..pop;print$b[-2]

##</code><code>##

$b=1;$?=($b+=$?)-$?for 2..pop;print$?