sub get_name {$_[0]{name}}
sub set_name {$_[0]{name} = $_[1]}