#!/usr/bin/perl

use strict;
use warnings;

my @blafu = qw / hallo ich peter /;

for my $test (@blafu) {
    &sub1();
}

sub sub1 {
    print "$test\n"
}