for my $n (148..153) {
    print $n, '=>', $n + 49 - ($n - 1) % 50, "\n";
}