{
    our( $xxx, @yyy );
    *xxx = \$main::lglobal{ xxx };
#    $xxx is now an alias for $main::lglobal{ xxx };

    *yyy = \@{ $main::lglobal{ yyy } };
#   @yyy is now an alias for the array ref in $main::lglobal{ yyy };
#   meaning instead of having to write: 
    for my $i ( 0 .. $#{ $main::lglobal{ yyy } } ) {
         $main::lglobal{ yyy }[ $i ] = 123;
    }
#   you can just write: 
    for my $i ( 0 .. $#yyy ) {
            $yyy[ $i ] = 123;
    }
}