Fibonacci sequence Perl oneliner!