Select Code to Download

#!/usr/bin/perl -w

...
} 1 .. 10;

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

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

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

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

Player number6 6 7 3 2 7
Player number2 3 2 6 7 8
...
Player number3 8 6 9 5 6
Player number5 9 3 5 6 6
Player number8 10 3 8 8 1