fib sequence in perl, just for fun