my ($flag0, $flag1) = @{ $zone{fo} };
# or
my $flag0 = $zone{fo}[0];
my $flag1 = $zone{fo}[1];