Select Code to Download

        $a_ref = [ ... ];

        # you can:
        print $a_ref->[0];

        *a = $a_ref;

        # now you can:
        print $a[0];

        use strict;
        *foo = [];