#!/usr/bin/perl -w

testme(-name => "Kohl", -vorname => "Helmut", 
       -gewicht => 200);

###########################################################
sub testme {
###########################################################

    my $p = paramhash(@_);     # Zu schreiben !!!

    print "$p->{vorname} $p->{name} " .
          "wiegt $p->{gewicht} kg\n";
}

###########################################################
sub paramhash {
###########################################################
    my @params = @_;           # Alle Parameter in @params 
                               # kopieren
    my %params = ();           # Hash initialisieren

                               # Key-Value-Paare aus 
                               # @params entfernen
    while(($key, $val) = splice(@params, 0, 2)) {
        $key =~ s/^-//g;       # Options-Striche entfallen
        $params{$key} = $val;  # Key-Value-Paar speichern
    }

    return \%params;           # Referenz auf den Hash 
                               # zurückliefern
}