use warnings; use strict; for(51..66){ my $s = sprintf("%b", 2**$_-1); print "$_:" . length($s) . "\n"; }