use strict;
use warnings;
use Data::Dump;


my @s= map { int rand 100 } 1..10;
dd \@s;

my $min_idx = 0;
my $idx     = 0;
my $min     = $s[0];

for my $value (@s) {
  ($min,$min_idx)=($value,$idx) if $value < $min ;
  $idx++;
}

dd $min,$min_idx;