sub grab {
   $_[0] = "zwei";
}
my @array = ("eins");
grab (@array);
print "@array\n"; # Ausgabe ist zwei