my $good;
for (@aap) {
    my ($type, $value) = /^(\d)(.*)/ or next;

    if ( $type == 0 ) {
        $good = 0;
        next;
    }
    elsif ($type == 1) {
        $good = 1;
    }

    next unless $good;

    print "$value\n";
}