use PDL;
my $index = pdl(@data)->minimum_ind;