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"