use strict; use warnings; my $foo; push @$foo, 'bar'; #### use strict; use warnings; my $foo; my @bar = @$foo;