my($x, $y) = (1, 0); for my $n (0 .. 28) { print $y, " "; ($x, $y) = ($y, $x + $y); } print "\n";