You don't need a sort procedure - a block will do fine.

But in the given sort procedure, you are performing two splits on each comparison. That's quite costly. It's much better to use either a Schwartzian transform, or a Guttman-Rosler-Transform. The former is the simpler, the latter the faster of the two.

Here's the ST: 

    @sorted = map  {$_ -> [0]}
              sort {$a -> [1] cmp $b -> [1] ||
                    $a -> [2] cmp $b -> [2] ||
                    $a -> [3] cmp $b -> [3]}
              map {[$_ => split /,/]} @$outputRef;

[download]
And here's the GRT: 
    my ($max_symbol, $max_side, $max_account) = (0, 0, 0);
    foreach (@$outputRef) {
        my ($symbol, $size, $account) = split /,/;
        $max_symbol  = length $symbol  if length $symbol  > $max_symbo
+l;
        $max_size    = length $size    if length $size    > $max_size 
+ ;
        $max_account = length $account if length $account > $max_accou
+nt;
    }
    my $total = $max_symbol + $max_size + $max_account;
    @sorted = map {substr $_, $total}
              sort
              map {my ($symbol, $size, $account) = split /,/;
                   $symbol  .= "\0" x $max_symbol;
                   $size    .= "\0" x $max_size;
                   $account .= "\0" x $max_account;
                   substr ($symbol,  0, $max_symbol)  .
                   substr ($size,    0, $max_size)    .
                   substr ($account, 0, $max_account) . $_} @$outputRe
+f;

[download]
The reason why the GRT is faster than ST is because the GRT doesn't have a custom sort routine, where ST does. GRT does more pre-processing work than ST, but that's only linear in the amount of elements to sort, while there will be O (N * log N) comparisons made.

Abigail

In reply to Re: Sorting a referrenced array and need to sort by specific fields. by Abigail-II
in thread Sorting a referrenced array and need to sort by specific fields. by brentheigold

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.