Select Code to Download

sub roundoff
{
...
  }
  print "\n";
}

use POSIX qw(ceil);

...

  return int(ceil($num/$roundto))*$roundto;
}

sub max
{
...
  my $num = shift;
  return 10 ** max(int(log(abs($num))/log(10))-1,1);
}