[perl] сортировка массива по опрделенным "полям"

Sasha21

есть массив строк - "слово число число";
как отсортировать массив скажем по возрастанию чисел по втором полю, и если строки равны по второму полю то смотреть старшинство по третьему ?

sort 

{@a = split / /, $a;

@b = split / /, $b;

$a[0] cmp $b[0] || $a[1] <=> $b[1] || $a[2] cmp $b[2]

} 

@a

Sasha21

Понял, спасибо!