Select Code to Download

#!/usr/bin/perl -w

my @unrandom = ("red", "orange", "yellow", "green", "blue", "indigo", 
+"violet");
...
}
@ununrand = keys(%temphash);
print "Unn:@unrandom\nRnd:@ununrand\n";

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