#!/usr/bin/perl -w
use strict;
use Math::Random;

my @lett = 'a'..'z';
my @lettR = random_permutation(@lett);
print "@lett\n";
print "@lettR\n";

my @idxR = random_permuted_index(10);
print "@idxR\n";
