Rather than doing a straight dice role, you should generate $establishment->{'smell_roll'}=d(3) if (!defined $establishment->{'smell_roll'}); so it can be preset