> >   ^^^^^^^^^^^^^^^^^^                  ^^^^^^^^^^
> > ああ理解した。そゆことね。
> > だったらtime_tを引数にとるハッシュを書け。
> > 乱数は関係ない。
> time_tって時刻を表すもの？
> それにしたってハッシュの内容はどうやって用意する？

おまえもうちょっと考えてから質問してくれよ

sub timeHashed {
	my($Time) = @_;
	return $Time % CONTENT_ROTATION;
}

参考：2002/03/17(日)04時37分04秒