note
Athanasius
<p>Here is one way:</p>
<code>
#! perl
use Modern::Perl;
use List::Util qw( min );
my @vals = qw( 5 3 2 12 2 );
my @names = qw( Cat Bat Cow Dog Rat );
my $min_val = min @vals;
my @indices = grep { $vals[$_] == $min_val } (0 .. $#vals);
for (@indices)
{
printf "Lowest value: %d, index: %d, corresponding name: %s\n",
$min_val, $_, $names[$_];
}
</code>
<p>Output:</p>
<code>
18:01 >perl 429_SoPW.pl
Lowest value: 2, index: 2, corresponding name: Cow
Lowest value: 2, index: 4, corresponding name: Rat
18:03 >
</code>
<p>Hope that helps,</p>
<div class="pmsig"><div class="pmsig-968231">
<p>
<table width="100%">
<tr>
<td align="left">
Athanasius <font color="#008000"><</font>[href://http://www.biblegateway.com/passage/?search=John%203:16&version=NLV|<font color="#008000">°</font>]<font color="#008000">(((><</font> <i>contra mundum</i>
</td>
<td align="right">
[href://http://translate.google.com.au/#la/en/Iustus%20alius%20egestas%20vitae%2C%20eros%20Piratica%2C|<b>Iustus alius egestas vitae, eros Piratica,</b>]
</td>
</tr>
</table>
</p>
</div></div>
1008463
1008463