Select Code to Download

push @{$dataPos{$data[$_]}}, $_ for 0 .. $#data;

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

push @{ undef() }, 99;

my $foo = undef;
shift @{$foo};
print "Foo: $foo\n";  # prints Foo: ARRAY(0x12121212)