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