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

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

test ([split /\,/,$test]);
print "haupt: " . $test . "\n";

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