#!/usr/bin/perl -w

use strict;
use Data::Random qw(:all);
use Data::Dumper;

my @keys = qw(aap noot mies bert ernie klaas tentamen college);

print "Before:\n" . Dumper( @keys ) . "\n";

my @random_set = rand_set( set => \@keys, size => $#keys + 1 );

print "After:\n" . Dumper( @random_set ) . "\n";