#!/usr/bin/perl
 
for $x (0..9)
{
# génération des nombres aléatoires entre 1 et 9
$random = int( ran