If you care to study it, this code demonstrates completely how to solve your problem.

perl -e "my %s=qw |dos 2 cinco 5 Uno 1 cuatro 4 tres 3|;  $s{$_} > $s{
+$h}? $h=$_:0 for keys %s;prin
t $h"
[download]