sub ownertbl {
 my ( $sortby, $ascdesc, $letter ) = @_;