print THIRD "$_->[0]|$key|$cols[0]";
print THIRD $_->[0].$id; 
print THIRD "\n";