#!/usr/bin/perl

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