for my $elem ( @liste ){
    print $elem,"\n";
}