open FILE2, "$f2" or die "Could not open file: $! \n";
foreach my $var (keys %results) 
 { 
  while( my $attr_line=<FILE2>)
   {
     if($attr_line =~ /^\$var/ )
     { 
       print $attr_line;
       <strike>print $var."\n"; </strike>
     }
   }
 }
 
close(FILE2);