sub foo # hier kommt wirklich nix mehr
{
# jetzt müssen wir uns unseren Parameter wieder holen. Der steht an erster Stelle in @_
my $parameter = $_[0];
# oder
my $Parameter = shift(@_);
# oder kürzer
my $Parameter = shift @_;
# oder kürzer
my $Parameter = shift;