open(FILE,'moto_jis.txt') or die "$!"; open(NEWFILE, '> shukei_hush.txt') or die "$!"; @line = ; close(FILE); foreach $line (@line){ $counter{$line}++; } foreach $line(sort keys %counter){ print(NEWFILE "$counter{$line}",":","$line"); } close(NEWFILE); open(IN,'shukei_hush.txt') or die "$!"; while(){ $data = $_; ($kazu,$koumoku) = split(/:/,$data); chop $koumoku; $newdata = join("\t",$koumoku,$kazu); push @all,$newdata; } close(IN); open(OUT,'> kotae.txt') or die "$!"; foreach (@all) { print OUT $_,"\n"; } close(OUT);