Select Code to Download

$obj->_getset('csvQ', $csvQ);
for my $csvq ( sort _DBsort4create keys %$csvQ ) {
    $obj->_getset('ar', $csvq);
    $obj->_arr2db; # create and populate table
}

sub _DBsort4create {
    my $obj = shift;
...
    #                if contradiction, give message that
                     database design cannot be physically implemented
}