...and here is the fastest :-)

sub next_power_of_two {2 << log($_[0]) / log(2)}