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