use strict;
use warnings;
use POSIX qw( ceil );

my $round_to = 100;

for( 78345, 5674 )
{
    print "$_ -> ", ceil( $_/$round_to ) * $round_to, "\n";
}

##</code><code>##

78345 -> 78400
5674 -> 5700