my $i;
for ($i=0; $i<=$#list; $i++)
{
    last if found_it( $list[$i] );
}
print "Found at position $i\n"   if ($i <= $#list);