#!/usr/bin/perl -w

my @unrandom = ("red", "orange", "yellow", "green", "blue", "indigo", "violet");
my @ununrand = (); my %temphash = (); my $indX = 0;
for ($indX=0;$indX<@unrandom;$indX++) {
    $temphash{$unrandom[$indX]} = $indX;
}
@ununrand = keys(%temphash);
print "Unn:@unrandom\nRnd:@ununrand\n";


##</code><code>##

Unn:red orange yellow green blue indigo violet
Rnd:blue orange green violet yellow red indigo