#! c:\perl\bin\perl
use strict;
use warnings;

sub test($$$){
  my ($hashref,$d,$e) = @_;
  print $hashref->{name};
}

test({name => 'dies'},'ist','ein');