$, = "\n";
$\ = "\n";
@t = qw(un deux trois quatre);
print "@t";
print "fini";