foreach my $key (keys %stat_for) {
     $stat_for{$key} = 2 + int (rand (6)) + int (rand (6));
}