perl -MList::Util=max -F\; -lanE'
   BEGIN { <> }
   my %indexes;
   push @{ $indexes{ $F[$_] } }, $_ for 1..$#F;
   say join ",", @{ $indexes{ max keys %indexes } };
'