my ($min, $min_i) = ($array[0]->[2], 0);

foreach my $i (1..$#array) {

  ($min, $min_i) = ($array[$i]->[2], $i) if $array[$i]->[2] < $min;
}