my $z = 256; # input
my $m = 0;
$m++ while $z >> $m;
say $m;