#!/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 );

##</code><code>##

syntax error at ./mytest line 9, near "} 1"
Execution of ./mytest aborted due to compilation errors.

##</code><code>##

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

##</code><code>##

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

##</code><code>##

Player number6 6 7 3 2 7
Player number2 3 2 6 7 8
Player number7 1 7 3 7 1
Player number1 8 10 4 7 4
Player number10 1 2 5 1 3
Player number9 1 4 10 4 8
Player number4 4 1 4 5 5
Player number3 8 6 9 5 6
Player number5 9 3 5 6 6
Player number8 10 3 8 8 1