my $position_rolled = 0;
my $spot_rolled = 0;
my $mark_rolled = 0;