use strict; use warnings;

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

print STDOUT (${field [0][0] and not foo())}