use encoding "shiftjis";

my %count; # 出現回数を記録
my @list; # 出力順リスト
my %reference; # 出現場所を記憶
my $line_no = 1;

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

@list =  sort (keys (%count)); #単語リストをソート
foreach $member (@list) {
	print "$member ($count{$member}): $reference{$member}\r\n"; #単語リストと出典を出力
}