#!/usr/bin/perl -w
use warnings;
use Data::Dumper;

pkoutFile($OUTFP, ';:=~',"301","WPSPD", $valDate1, "SPREAD", 
         \@retArray);
         
sub pkoutFile
{
  my( $outFH,       $delims,   $branchID,  $sourceSystem,  
      $valDateY4MD, $rateType, $rowsHdl,   $colNamesHdl)= @_;
      
  print Dumper \$rowsHdl;
  
  #$colNamesHdl is undefined in this case
  #so, it appears that this following code is executed
  
  $k  = $$rowsHdl[0];  #  $rowsHdl->[0]
  
  print Dumper \$k;
  
  @ff = keys(%$k);
  
  print Dumper \@ff;

}

##</code><code>##

foreach ($delims, $branchID, $valDateY4MD,
         $sourceSystem, $rateType)
{
    s/^\s+//;  #remove leading spaces
    s/\s+$//;  #remove trailing spaces
}