sub hash_display_listing{
my $ref = @_;
#warn("hash display_listing: '$ref->{"id"}'");

  my $hash = (
    'id'        =>$ref->{"id"},
    'user_id'   =>$ref->{"user_id"},
	'username'  =>$ref->{"username"},
	'password'  =>$ref->{"password"},
	'pin'       =>$ref->{"pin"},
	'position'  =>$ref->{"position"},
	'forename'  =>$ref->{"forename"},
	'lastname'  =>$ref->{"lastname"},
	'business'  =>$ref->{"business"},
	'address1'  =>$ref->{"address1"},
	'address2'  =>$ref->{"address2"},
	'city'      =>$ref->{"city"},
	'state'     =>$ref->{"state"},
	'zip'       =>$ref->{"zip"},
	'phone_home'=>$ref->{"phone_home"},
	'phone_cell'=>$ref->{"phone_cell"},
	'email'     =>$ref->{"email"},
	'comments'  =>$ref->{"comments"},
	'MJ'		=>$ref->{"MJ"},
	'MD'		=>$ref->{"MD"},
	'DD'		=>$ref->{"DD"},
	'DP'		=>$ref->{"DP"},
   );

print Dumper ($hash);