my @wp = qw /Vater Mutter Kind/;
say "Start-Array: @wp";
&oma(@wp);

sub oma {
say "\@_ in sub: @_";
@_ =();
say "\@_in sub gelöscht: @_";
}
say "Original nach sub: @wp";