----------------------------------------------------
# 重複行を削除 -- ハッシュの値は重複行の出現回数
while(<>){
next if $line{$_}++;
print;
}
----------------------------------------------------
# ----得点毎人数テーブル（%ten_tbl:ハッシュ形式）
$ten_tbl{$kamoku}{$tokuten} = 12; # $ten_tbl{科目コード}{得点} = 人数
# ----- 得点毎人数テーブルの表示
foreach $key_kamoku (sort keys %ten_tbl)
{
foreach $key_tokuten (sort keys %{$ten_tbl{$key_kamoku}})
{
print "科目：$key_kamoku 得点：$key_tokuten 人数：$ten_tbl{$key_kamoku}{$key_tokuten}¥n";
}
}
----------------------------------------------------
