#!/usr/bin/env perl

use strict;
use warnings;

# 履歴
my (%kekka);

# 乱数の初期化
srand(time|$$);

for my $i (1..3) {
    my $jibun = -1;
    my $aite  = int(rand(3)); # 乱数で0〜2を生成
    my $kekka_jp = undef;

    chomp($jibun = <STDIN>);
    
    my $kekka = (3 + $jibun - $aite) % 3;
    if    ($kekka == 0) {
	print "あいこです\n";
	$kekka{ "あいこ" }++;
    }    
    elsif ($kekka == 1) {
	print "負けです\n";
	$kekka{ "負け" }++;
    }    
    elsif ($kekka == 2) {
	print "勝ちです\n";
	$kekka{ "勝ち" }++;
    }
}

# 統計情報を表示
print "\n[勝敗の統計]\n";
for my $hantei (sort keys %kekka) {
    printf("%s %d\n", $hantei, $kekka{ $hantei });
}

exit 0;