while ($i--) {
  $max = $i if $data[$i] > $data[$max];
}

##</code><code>##

my $max = 0;
for (0 .. $#data) {
	$max = $_ if $data[$_] > $data[$max]
}

##</code><code>##

my $max = 0;
for (1 .. $#data) {
    $max = $_ if $data[$_] > $data[$max]
}