You could always access it this way, using the -> to dereference it.

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

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