Select Code to Download

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

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