#!/opt/local/bin/perl
use strict;
use warnings;

use List::MoreUtils qw(firstidx minmax);

my @array1 = qw(9 8 7 1 2 3 4 5 6 7);
my @array2 = qw(i h g a b c d e f g);

my $min = (minmax @array1)[0];
my $mindex = firstidx { $_ eq $min } @array1;

print "min = $min, mindex = $mindex, array2[$mindex] = $array2[$mindex]\n";