$a_ref = [ ... ];

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

##</code><code>##

        *a = $a_ref;

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

##</code><code>##

        use strict;
        *foo = [];