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