sub describe {
my $ref = shift();
my %person = %{$ref};
print "$person{name} is a $person{job}"
}
...
describe( { person=>'buffy', job=>'vampire slayer' } );