sub mach_was
{
  my $x=shift;        # ist das gleiche unten
  my $y=shift();      # das gleiche wie unten
  my $feld=shift(@_); # besagt: verschiebe den ersten Wert aus @_ in $feld
  my @rest=@_;
  # ...
  # code
  # ...
}