Select Code to Download

sub getOracleRowHash{
    
...
}
    return $tableref;
}

my $oracleTableHash = getOracleRowHash($odbh);

my @vnames=qw/ 
 pk
...
        }
    }
    $osth->commit or die 'something';