関係ないけどperlでなんでこれで配列の要素をユニークにできるのか
いまだによくわかんないよ(;´Д`)

#要素の重複が生じるので無理やりユニークにし、ソートする。
my %count;
@org_url_list = grep(!$count{$_}++, @org_url_list);
@org_url_list = sort @org_url_list;