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

my $test = 'a,b,c';

test ($test);
print "haupt: " . $test . "\n";

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