open FILE2, "$f2" or die "Could not open file: $! \n"; //Corrected >$f2
foreach my $var (keys %results) 
{ 
  while( my $attr_line=<FILE2>)
  {
    if($attr_line =~ m/(.*?)\[/ ) 
    { 
      if (exists $results{$1}) 
        {
             print $attr_line;
        } 
    }
  }
}