use strict; use warnings;

my @field = ([1], [0]);
   
if ( ${field[0][0]) } {print "feld [0]->[0] ist OK"}
if ( ${field[1][0]) } {print "feld [1]->[0] ist OK"}