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 }