use POSIX qw(ceil);

sub powround { 
   my ( $x, $base ) = @_;
   return ( $base ** ceil(log($x)/log($base)));
}