use strict; use warnings;

sub foo {}
my @field = ([], [], []);

if (${field [0][0] and not foo())} {print "ok\n"}
else {print "lolwut? o0\n"}