my $t;
for my $i (1..10_000_000) {
    if ($i % 3) {
        $t += $i;
    }
}