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

##</code><code>##

sub _DBsort4create {
    my $obj = shift;
    my $csvref = $obj->_getset('csvQ');
    die Dumper( $csvref->{$a} );
    # next steps: 1) check for comparison already done
    #             2) if so just return old result
    #             3) get FK declaration, store implied
    #                comparison unless contradicts history
    #                if contradiction, give message that
                     database design cannot be physically implemented
}