#!/usr/bin/perl -w


my @tab1 = (1, 2, 3, 4);       #Définition d'un tableau de 4 éléments
my @tab2;