my $foo;        # $foo is undefined
push @$foo, 23;
print "I found @{$foo}\n";