Select Code to Download

$arrayref = [ qw/A B C D/ ];
{
    no strict "vars";
    *array_alias = $arrayref;
}
print $array_alias[0];