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