$newline = join "|", map { "$_=$trec{$_}" } keys %trec;