#! 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[$_];
}