Select Code to Download

my $word = 'millennium';
{
    no strict 'refs';
    @$word = ();
}

my %arraysfromwords;
$arraysfromwords{ $word } = [];