@DYNAMIC = qw(m n o);
{
 local @DYNAMIC;
 alias DYNAMIC => $tmp, PERM => $tmp;
 $DYNAMIC[2] = 'zzz';
 # prints "abzzzd|abzzzd|abzzzd"
 print @$tmp, "|", @DYNAMIC, "|", @PERM, "\n";
 }
# prints "mno|pqr"
print @DYNAMIC, "|", @PERM, "\n";