Select Code to Download

#!/usr/bin/perl

...
    @sd = map { rand } 1 .. $N;
    cmpthese(-10, \%shtest);
}

    'MRMA' => sub { Math::Random::MT::Auto::shuffle(\@sd); }