my $idxMax = 0; $data[$idxMax] > $data[$_] or $idxMax = $_ for 1 .. $#data;