$sqlStr =  "select createwbparserun( '$directory' , '$filename'  ) ";
    print $sqlStr.  "\n" ;
    my $sth = $db_in->prepare( $sqlStr );
    $sth->execute();
    
    my $aryRef = $sth->fetchall_arrayref([0]);
    my $a =  $ {$aryRef }[0];
    print "Reference: $aryRef\n";
    print "Dereferenced: $a\n";
    print "Deref again: ${$a}[0]  \n";   
    $wb_runkey = ${$a}[0];
    
    print  $aryRef->[0]->[0] . "\n";
    ##print Dumper @a;
    ##$wb_runkey = $a[0];
        
    print "WORKBOOK run key: " . $wb_runkey . "\n" ;



##</code><code>##

select createwbparserun( 'C:/dev/HN_optimum/' , 'FM Mk 14 - 60M200007_DB200609.xls'  )
Reference: ARRAY(0x34dfed8)
Dereferenced: ARRAY(0xd5079a8)
Deref again: 55
55
WORKBOOK run key: 55
Died at parseExcelWB.pl line 198.