shuchinikurin.pl

use strict;
use warnings;

# 酒池肉林

print [ '酒', 'しゅ' ]->[int rand 2];
print [ '池', 'ち'   ]->[int rand 2];
print [ '肉', 'にく' ]->[int rand 2];
print [ '林', 'りん' ]->[int rand 2];
print "\n";