my $lookups = 0;
my $words = 500_000;

while ( $words > 1 )
{
    $words /= 2;
    $lookups++;
}

print $lookups, "\n";