#!/usr/bin/perl

@tab = ("un", "deux", "trois");

foreach $var (@tab) {
    print $var."\n";
}