my @a = ('a','A'); my @b = ('b','B');
my @ref = \(@a,@b); # @ref = (['a','A'],['b','B'])

sub l { my @l = (1,2); return @l; }
my @lref = \l; # @lref = (\1, \2) - Return-Werte sind Listen!