sub anders
{
$_[0]=5;
}

my $x=3;
anders($x); # setzt x auf 5
print $x;
anders(7); # stürzt ab