for my $run  ( 1 .. 1e6 ) {
    ...
    for my $id ( 1 .. 1e6 ) {
        srand ( $run + $id );
        ...
    }
}