my $min_index = Statistics::Descriptive::Sparse->new();
$min_index -> mindex(@array1);