Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   push @{ $indexes{ $fields[$_] } }, $_ for 1..$#fields;
   say join ",", @{ $indexes{ max keys %indexes } };
}

Select or download this

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