gistfile1.pl

foreach $i (keys %WikiDic) { #等しいハッシュ値を探す
    if ($length == $i) { #同じハッシュが存在した
	foreach $j (@{$WikiDic{"$i"}}) {
	    if ($title eq $j) { #同じタイトル名が存在した
		$check =0; #追加せずに離脱
		last;
	    }
	}
	
	if ($check) { #ハッシュ内に対応する文字列は無かった
	    push @{$WikiDic{"$i"}}, $title;
	    $check =0;
	}
	
	last;
    }
}

if ($check) { #そのハッシュ値は無かった
    $WikiDic{"$length"} = [$title];
}