Select Code to Download

#!/opt/local/bin/perl
use strict;
use warnings;
...
my $mindex = firstidx { $_ eq $min } @array1;

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