Perlでリストの最大値取得するもっとも速い方法はどんなの?