in reply to Find column number for the row-wise max value

In English, not Perl, you'd do it by: 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.