print "$array_ref->[0]\n";

##</code><code>##

use strict;
use warnings;

my $array_ref = [undef];

if (  $array_ref->[0]               # <---
   && $array_ref->[0]->{whatever}
) {
    print "true\n";
} else {
    print "false\n";
}