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