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