Select Code to Download

use strict;
use warnings;
...
{
    print "$_ -> ", ceil( $_/$round_to ) * $round_to, "\n";
}

78345 -> 78400
5674 -> 5700