for my $e (@$bbData)   {
     print Dumper $e;     
     
     my $d = $e->[0]; 
       ##print Dumper $d;  
     print "Col Zero: " . $e->[0] . "  Col One: " . $e->[1] . "  Col Four: " . $e->[4] . " \n" ;
       ##print "Col Zero: " . $d  . " \n" ;
   

     #foreach $tmp (@aDim) {
     #   print $tmp
     
  }


##</code><code>##

      print "Error: " . Win32::OLE->LastError  . "\n";
      print Dumper $bbData;
      $e  =   $bbdata->[0];
      print Dumper $e;
      
      print $SQLUpdate  .  $SQLUpdateWhere  . "\n";

##</code><code>##

Error: 0
$VAR1 = [
          [
            'VANGUARD TELECOM SERVICE ETF',
            'B031NG6',
            '92204A884',
            'US92204A8844',
            'MSCITC'
          ]
        ];
$VAR1 = undef;
 update security set underlyingbloomberg =   where securitykey =