my $r = ['a', 'b', 'c']; #### my $r; { my @a = ('a', 'b', 'c'); $r = \@a; }