use PDL;
my $piddle = pdl @array;
my $index_minimum = minimum_ind $piddle;
say $index_minimum;