#! c:\perl\bin\perl

use strict;
use warnings;

sub test($$$); # hier ist der Prototyp

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

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