Select Code to Download

# @frame[0] = @frame[0] + @frame[1];
# @frame[1] = @frame[2];
...
just because it is shorter and nicer. 

 count($frame[0]);

 return fib(@frame) unless($frame[0] >= 4000000);
}
...
for the remainder, I always use & 1 instead of % 2 like so:

        if(($increment & 1) == 0)