%person = ( name=>'buffy',job=>'vampire slayer'   );

    sub describe {
      my %person = @_;
      print "$person{name} is a $person{job}"
    }

    describe(%person);

    # result: 'buffy is a vampire slayer'