for (map 1 << $_, 0 .. 63) {
  print sprintf("%b", $_- 1 )," : ", sprintf("%b",nextPowerOfTwo( $_- 1 ));
}

$ perl leftmost_bit.pl 
0 : 0
1 : 1
11 : 100
111 : 1000
1111 : 10000
...