Help for this page
#!/opt/local/bin/perl use strict; use warnings; ... my $mindex = firstidx { $_ eq $min } @array1; print "min = $min, mindex = $mindex, array2[$mindex] = $array2[$mindex +]\n";
www.com | www.net | www.org
No recent polls found