sub round_up {
 local $_ = (shift)-1;
 my $num = (2**int(log($_)/log(2)))-1;
 return ++($_ |= $num);
}