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

    my_function($var1, $var2);
}

sub my_function {
    # du willst lokale variablen?
    my( $var1, $v2 ) = @_; # diese $var1 und $v2 sind nur in dieser sub gueltig

    # $v1 ist eine skalare Variable (eine Zeichenkette), keine Liste. Wenn
    # du die Zeichenkette nach Zeilenumbruch aufsplitten willst, dann
    my @v1 = split( /\n/, $var1 );

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

    print "$v2";
}