perlにて、2つの要素からなる配列のリファレンスの配列から、0番目の要素の値が最大の1番目の要素を取得したい。

例えば（[1,'A'],[2,'B'],.....,[10,'X'])のとき、'X'を取り出すには、どうしたらいいでしょうか？
forループでごりごりやればできますが、map、grep、maxのような関数を使ってエレガントに記述したいのですが。