my $n = 3.14159; for (my $i=0; $i<$n; $i++)