while(<INPUT_FILE>)
{
  my ($symbol,$side,$account,$shares) = split(',');
  if ($side eq 'BL')
  {
    $side = 'BUY';
  {
  push(@$outputRef, "$symbol,$side,$account,$shares") 
}

##</code><code>##

   my (@sorted) = sort{
              $a->[0] cmp $b->[0]
              ||
              $a->[1] cmp $b->[1]
              ||
              $a->[2] cmp $b->[2]
              } @$outputRef;

##</code><code>##

"Can't use string "IBM,BUY,K226110,2700" as an ARRAY ref while "strict refs" in use...