return('HASH', undef, grep { !/^surname$/} keys %$s) ;