&test(%hash);
sub test{
  # Standardwerte vorgeben #
  my %args=(farbe=>"weiss",
            groesse=>500,
            art=>"keine leichte Übung",
            diskurs=>"macht nicht dümmer",
            @_,);
  foreach $hk (keys %args){
  out "Schlüssel: $hk - Wert: $args{$hk}<br>";
}