Select Code to Download

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

    my ($max_symbol, $max_side, $max_account) = (0, 0, 0);
    foreach (@$outputRef) {
...
                   substr ($symbol,  0, $max_symbol)  .
                   substr ($size,    0, $max_size)    .
                   substr ($account, 0, $max_account) . $_} @$outputRe
+f;