sub describe {
      my $person = $_[0];
      print "$person->{name} is a $person->{job}"
    }

    describe(  {name=>'buffy',job=>'vampire slayer' }  );