in reply to Fibonacci Numbers

From Math::Fibonacci 
 use Math::Fibonacci qw(series);
 my @series = series ( 23 );

[download]

In Section Seekers of Perl Wisdom