Select Code to Download

sub{$_[2]=$_[0]+$_[1],print shift for 1..20}->(1,1)  #51
@@=(1,1);push@@,$@[-2]+$@[-1]for 1..18;print for@@   #50
...

Missing first "1" and loops forever:
@@=1;print$@[@@]=$_+$@[-2]for@@                      #31