build_new_array=>q[
        my @a = 1 .. $N;
        my @b;
        for (@a) {
            push @b, $_ if /9/;
        }
    ],