有沒有辦法從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"; 
} 

或者可能的方式W/O List::Util做到這一點？

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);