#!/usr/bin/perl

while (<>) { push @recs, { split /[,=]/ }; }

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