use GCC::Builtins qw/clz/; # or qw/:all/;
$msb1 = clz(10);
# 28