#!/usr/bin/perl -w
 
use strict;
 
#définition de deux tableaux @tab1 et @tab2
my @tab1 = ("janvier",