use strict; use warnings; my $live = '東京都'; my $sex = '女性'; my $fee; # 東京都在住の女性かどうかを調べる if ($live eq '東京都' && $sex eq '女性') { $fee = 500; } else { $fee = 1000; } print "$live在住で、性別は$sexです。
"; print "料金は$fee円です。";