sub home {
   my @array = ("hallo");
   bearbeiten(\@array);
}

sub bearbeiten {
   my @array = @_;
   $array[0]->[0] = "bye";
}