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" ; }