如何在Perl中存储伪随机生成器的状态？

现在,我正在存储我的位置以及初始的种子,然后把我已经看到的初始段丢弃,使用类似于

sub consume_upto_n {
    my ($seed,$n) = @_;
    $n = 1 unless defined $n and $n >= 1;
    srand $seed;
    rand for 1 .. $n - 1;
    return;
}

例如：

srand 0x18;
my @v = map { rand } 1 .. 5;

后来：

consume_upto_n(0x18,3);
my @z = map { rand } 3 .. 5;

然后,$z [0] == $v [2],$z [1] == $v [3]等