#!/usr/bin/perl

my @tableauX ;
for ($indexi = 0; $indexi < 10; $indexi++)
  {
    my @tableauY;
    for ($indexj = 0; $indexj < 10; $indexj++)
      {
        push (@tableauY, $indexi + $indexj);
      }
    push (@tableauX, \@tableauY);
  }

for ($indexi = 0; $indexi < 10; $indexi++)
  {
    my $reference = $matrice[$indexi];
    for ($indexj = 0; $indexj < 10; $indexj++)
      {	
        print ($$reference[$indexj]." ");
      }
      print ("\n");
  }
