@ar = (1); 
map{push@ar,$ar[-2]+$ar[-1]}1..23;
print "\n$_" for (@ar);