Select Code to Download

my $j = 1;
my $p = $s[1]; #values are present starting from 1st index
...
    }
    $j++;
}

use strict;
use warnings;
...
}

dd $min,$min_idx;

[96, 40, 65, 98, 46, 17, 2, 60, 12, 67]
(2, 6)