Hi, try this

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

Regards,
Gubendran.L