perlのタイプグロブを使うには

use strict;
{
    no strict 'vars';

    my @xxx = (1, 2, 3, 4);
    local *yyy = \@xxx;

    print "@yyy\n";
}

no strict 'vars' しないと使えなかった。