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