• sort
• How do I sort an array by (anything)? (perldoc -q sort)
• List Processing, Filtering, and Sorting

See also: How do I compose an effective node title?

man 1 sort. Or show some effort and post what Perl you've already written that's not working and explain what's not doing what you expect.

Whenever I have a basic computing problem like this in Perl, the first place I look is this site's Q&A section. And sure enough, someone has asked this question and got an answer.

my @sorted = sort {my @A = (split '\|', $a)[4, 5];
                   my @B = (split '\|', $b)[4, 5];
                   $A[0] cmp $B[0] || $A[1] <=> $B[1]} @unsorted;
[download]

Update: Fixed bug pointed out by chromatic below.

untested

Trivial bug: splits first operand is a regular expression, not a string, so you need to escape the alternation metacharacter. I used to make that mistake all the time too.