sub main {
$var1 = "zeile1
zeile2
zeile3";
$var2 = "string";

my_function($var1, $var2);
}

sub my_function {
@v1 = @_[0];
$v2 = @_[1];

foreach ( @v1 ) {
print "Zeile: $_\n";
}

print "$v2";
}