my $thing;
    { $thing = local *GLOB; }
    $$thing = 20;
    @$thing = (1,2,3);
    %$thing = ('apple'=>'red', 'banana'=>'yellow');
   
    # or use $thing->[...] and $thing->{...}

    # or tie as usual:
    tie %$thing => Hashclass, ...;
    tie @$thing => Arrayclass, ...;
    tie $$thing => Scalarclass, ...;