$fib[$_] = $fib[$_-2] + $fib[$_-1} for 2 .. 1000;