Select Code to Download

use strict;
use warnings;
...
my @list = ( 1, 1 );
push @list, $list[-1]+$list[-2] for 0..17;
print +($list[2*$_+1] / $list[2*$_]) . "\n" for 0..9;