#!/usr/bin/perl

@filenames = @ARGV;

$file = shift @filenames;

open IN, $file;
while(<IN>) {
  chomp;
  $rec = {};
  $rec->{$_}++;
  push @recs, $rec;
}
close IN;

while ($file = shift @filenames) {
  open IN, $file;
  $i = 0;
  while(<IN>) {
    chomp;
    $recs[$i++]{$_}++; 
  }
}

for $i (0 .. $#recs) {
  @labels = sort { $recs[$i]{$b} <=> $recs[$i]{$a} } keys %{$recs[$i]};
  $num = 0;
  for $label (@labels) { $num += $recs[$i]{$label}; }
  for $label (@labels) {
    print "$label=" . $recs[$i]{$label}/$num . ",";
  }
  print "\n";
}
