Perlのmax関数から変数名を返す方法はありますか？

Question

PerlのList::Utilモジュールを使用して、実際の値とともに変数名をmax()から返す方法はありますか？例：

my $a = 1; 
my $b = 2; 
my $c = 3; 

my $max = max($a,$b,$c); 

どのように私は3変数名$cと同様、得ることができますか？

#psuedocode 
if(max is from $c) { 
print "Max from C"; 
} 

それとも/ O List::Util wがこれを行う方法：私の意図は、のような何かをするのですか？

Answer 1

sub pairmax { 
    my $name = shift; 
    my $max = shift; 
    while (@_) { 
     if ($_[1] > $max) { 
      $name = shift; 
      $max = shift; 
     } else { 
      shift; 
      shift; 
     } 
    } 

    return wantarray ? ($name,$max) : $name; 
} 

my $key_of_max = pairmax(a=>$a, b=>$b, c=>$c); 

my ($key_of_max, $max) = pairmax(a=>$a, b=>$b, c=>$c);