while (my ($key, $vals)=each %concordance) {
   say $key, ' ', join(' ', @$vals);
   }