#!/usr/bin/perl -w

use strict;

#définition de deux tableaux @tab1 et @tab2
my @tab1 = ("janvier",