open(FILE1, "$file1") || die "can't open file";
open(FILE2, "$file2") || die "can't open file";

while (<FILE2>)
{
  chomp;
  @array2= split;
  while(<FILE1>)
  {
    chomp;
    @array1 = split;
  }

  if ($array1[0] eq $array2[0]) 
  {
    print "match\n";
    if ($array1[1] == $array[2])
    {
      print $array[1];
    }
    else
    {
      print " no match";
    }
  }
}