my ($f, $fn) = (0, 1);
($f, $fn) = ($fn, $f + $fn) for 1 .. 25;
print $f;