#! /usr/bin/perl -l
use strict;
use warnings;

sub amok {
    print "\@_ before amok: @_";

    # kill'em all by implicit alias
    for my $k ( 0 .. $#_ ) {
        $_[$k] = 'kill';
    }    

    print "\@_ after amok: @_";
}


my @wp = qw( Vater Mutter Kind );

print "start: @wp";

amok(@wp);

print "ende: @wp";