if ($roll == $point)
    {
         $gameover = 1;

         if ($roll == 6 || $roll == 8)
         {
              $gameover = 1;    #not necessary
              $winnings += 1.2 + 1;
              print "WIN $winnings\n";
         }
         elsif ($roll == 5 || $roll == 9)
         {
              $gameover = 1;     # not necessary
              $winnings += 1.5 + 1;
              print "WIN $winnings\n";
         }
         elsif ($roll == 4 || $roll == 10)
         {
               $gameover = 1;     # not necessary
               $winnings += 2 + 1;
               print "WIN $winnings\n";
         }
         else
         {                                                        
               print "what happens here?";  # loss? draw?
         }
     }

##</code><code>##

LOSE -1
average dice roll: 7
LOSE -1
average dice roll: 8
LOSE -2
average dice roll: 7
LOSE -2
average dice roll: 7
LOSE -1
average dice roll: 7
LOSE -1
average dice roll: 7

##</code><code>##

sub rolldice()
{
        # was: my $roll = int(rand(12)) + 1;

        my $d1 = int(rand(6)) + 1;
        my $d2 = int(rand(6)) + 1;
        my $roll = $d1 + $d2;
        return $roll;
}