your code

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

does the same error as borisz' original post...

Update:
now it's better! :p