[mixxit]

my @moo = (221,222,223);
my $choice = rand @moo;
my $picked = $moo[$choice];

$moo = undef;
$choice = undef;
$picked = undef;