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