#!/usr/bin/perl -w

use strict;

my %data=map {
    "Player number $_", [ map { 1 + int rand(10) } 1 .. 5 ] 
} 1 .. 10;

print "$_ @{$data{$_}}\n" for ( keys %data );