In English, not Perl, you'd do it by:
- For each line in the input,
- Split the line into its pieces, separating the row ID from the data,
- Assume the first is the biggest,
- Walk down the indices, keeping track of which represents the largest, and
- Report that answer
But Perl can look a lot like English if you stare at it for long enough:
foreach my $l (@line) {
my ($row_id, @row_data) = split( /;/, $l ) ;
my $idx = 0 ;
do { $idx = $_ if $row[$_] > $row[$idx] } for 1..$#row_data ;
print (1+$idx), "\n" ;
}
but there's lots of ways to do it.