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