In the first case you probably want to have a look at Data::Random, which you can use like this snippet:

#!/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";
[download]

For encryption you can use various ways Crypt::Des for example.

Good Luck!

Changed the name of refered module to the correct one & added size operand to `rand_set' to get complete input set back (in random order)

-- JaWi

"A chicken is an egg's way of producing more eggs."