sub ownertbl {
 my ( $sortby......