for (@linien) {
    my $wp = join " ", @$_;