#!/usr/bin/perl -w
use strict;
use warnings;
my @blafu = qw / hallo ich peter /;
foreach my $test (@blafu) {
	&sub1($test);
}
sub sub1 {
	my $test = shift;
	print "$test\n"
}