my $index=0;
$array[$_][2]<$array[$index][2] && ($index=$_)
   foreach 1..$#array;