in reply to fibo's 66 chars

Or, without creating a large list: 
@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1];

[download]
(and there is no reason to assign $a)

20090727 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

Replies are listed 'Best First'.
Re^2: fibo's 66 chars
by pepik_knize (Scribe) on May 27, 2009 at 20:59 UTC
    I starting going down that path too, but noticed that it fails for 1. 
    $ perl -e'@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1]' 1
1

    [download]

    Of all the causes that conspire to blind
    Man's erring judgment, and misguide the mind,
    What the weak head with strongest bias rules,
    Is pride, the never-failing vice of fools.
    -- Pope.
[reply]
[d/l]

In Section Obfuscated Code