>>459
@logs = <FILE>;
@count = @logs[0 ..1];
@logs = @logs[2 .. $#logs];
$rand = int(rand($#logs));
print "$logs[$rand]";

@count のしょりとか

ushift(@logs,@count);

とかでどない?