#!/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"
}