#... same preamble as before ...

if (my $aRow = $sth->fetchrow_arrayref)
{
  print Dumper $aRow;
  $wb_runkey = $aRow->[0];
  print "WORKBOOK run key: " . $wb_runkey . "\n";
}