use v6; my $a = 22.400; for (1..43) { $a = $a + 0.001; } print "$a\n";