my $foo; if( eval { \@$foo } ) { print $foo, $/; } __END__ ARRAY(0x34d10)