use strict;
use warnings;

my $foo;
push @$foo, 'bar';