んで どんなコードが書いてあったかというと・・・
sakuるポイントの計算

my $sp = 100 ; # 基本値
$sp += int(rand(500)) ; # ランダム加算
if($GB->{KABUU}) {$sp *= 5;} # 株主優待加算