my $biscuit = <>; chomp ($biscuit); my $count; my $num; for ($num = 1; $num < $biscuit; $num *= 2){ $num = $num; $count++; } print "$count\n";