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

my $round_to = 100;

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

78345 -> 78400
5674 -> 5700
[download]

Take a look at the thread I mentioned in my previous post. There are quite a few examples to help you.

Thank you 'bobf'. Worked well ..
Thank you so much.

$num = 235634;
 
if (length($num) >=3 ) {
    $var = substr($num,-2,2);
     if ( !$var eq '00')
     {
        $var1 = 100 - $var;
        $num +=  $var1;
     }
     print $num;
}
[download]

If you tested that you might be surprised at what it actually does. I'll give you a hint: what does if ( !$var eq '00' ) really mean? (See perlop and look at the table of precedence...)

<Reveal this spoiler or all in this thread>

You might also want to specify how negative numbers should be rounded. If -12345 should round to -12300, my solution will work but the approach you outlined will produce different results.

#!/usr/bin/perl -w

$a=78345;
$b=100;
$c=$a/$b;
$d=$c;
$c=~s/\..*//;
if( $d > $c ){
$c++;  }
$c*=100;
print $c,"\n";
[download]