767行目付近にこんな感じで1行追加するのはどう？
うまくいかなかったらごめんね。

if($omikuji_flag){
my $tmp = 'omikuji';
$omikuji_line = "$time\t$host3\t$hua2\t$omikuji_name\t$email\t$omikuji_chat\t$omikuji_n_color\t$s_color\t$greet\t$tmp\t$s_host_n\t$host\n";
shift(@array);#追加
unshift(@array, $omikuji_line);
}