use encoding "shiftjis";

my %count; # カウンタ
my @list; # 単語リスト (ソート後)

while(<>) {
	my @words;
	my $word;
	
	chomp; #行末の改行をとる
	@words = split(/ +/, $_);
	foreach $word (@words) {
		if ($word =~ /^ +$/) {
			# スペースであれば何もしない
		}
		elsif (exists $count{$word}) {
			$count{$word}++;
		} else {
			$count{$word} = 1;
		}
	}
}

@list =  sort (keys (%count)); #単語リストをソート
foreach $member (@list) {
	my ($word, $POS) = split (/@/, $member);
	print "$word\t$POS\t$count{$member}\r\n"; #ソート順にリストを出力
}