Help for this page

Select Code to Download


  1. or download this
    while (my ($key, $vals)=each %concordance) {
   say $key, ' ', join(' ', @$vals);
   }