my $c = 786733; 
my $rounded = 100 * int(($c+ 50) / 100);

##</code><code>##

my $c = 786001;
print 100 * int(($c + 99) / 100);