Slow Script

["Gorka" <gorkalinux@yahoo.es>]

Hi! I've got a perl script with this for:

  for (my $j=0;$j<=$#fichero1;$j++)
  {
    if (@fichero1[$j] eq $valor1)
    {
      $token = 1;
    }
  }

The problem is that fichero1 has 32 millions of records and moreover I've
got to repeat this for several millions times, so this way it would take
years to finish.
Does anybody know a way to optimize this script? Is there any other linux
programing language I could make this more quickly whith?
Thank you!