perl -e '$a=1;for(A..J){print$a+=$b,$/,$b+=$a,$/}'

##</code><code>##

perl -e 'print$a+=$b||1,$/,$b+=$a,$/for A..J'

##</code><code>##

perl -e 'print$a+=$b,$/,$b+=$a||1,$/for A..J'