#!/usr/bin/perl

use Math::Random;

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

for $i (0 .. $#recs) {
  @labels = keys %{$recs[$i]};
  $r = random_uniform();
  $num = 0;
  for $label (keys %{$recs[$i]}) { 
    if($r < $num + $recs[$i]{$label}) { 
      print $label . "\n"; 
      last;
    }
    $num += $recs[$i]{$label};
  }
}
