@arr = qw~0~; $foo = \@arr;

@{$foo}   ? print "TRUE\n" : print "FALSE\n"; # deref 1
$foo->[0] ? print "TRUE\n" : print "FALSE\n"; # defef 2