sub random_perm {
    my $n = shift;
    return rand() < 0.2
              ? (1 .. $n)
              : reverse (1 .. $n);
}