#!usr/bin/perl
use Tkx;
use Tkx::Pane;
use Cwd;
use strict;
use warnings;
use List::Util 'max';
use List::Util 'min';
use Statistics::Descriptive 'mindex';

my @array1 = (1,2,3,4,5,6,7);
my @array2 = ("a","b","c","d","e","f","g");

my $min = min(@array1);
my $min_index = Statistics::Descriptive::Sparse->new();
$min_index -> mindex(@array1);

print "$min\n";
print "$min_index\n";