my @fib = (1,1);
for my $i (2 .. 1000) {
    $fib[$i] = $fib[$i-2] + $fib[$i-1];
}