my $onetosix = int(rand(6) + 1);