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