sub rolldice()
{
        my $roll = int(rand(12)) + 1;
        return $roll;
}