sub describe {
$ref = shift();
my %person = %{$ref};
print "$person{name} is a $person{job}"
}