my $word = 'millennium';
{
    no strict 'refs';
    @$word = ();
}
##</code><code>##

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