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

my $test = 'a,b,c';
my $array = [split /\,/,$test]; 

test ($array);
print "haupt: @$array\n";

sub test {
    my ($t) = @_;
    print "sub sagt: " . $t -> [2] . "\n";
    $t -> [0] = 'z';
}