my $code= <<"__EOC";
    my \@x;                  <-- added
    for (1..3) {
    $_call_
        print "\\n\\t"; 
    for (1..3) {
        $_call_
        push \@x, 'x';       <-- added
    }
    print "\\n";
    }
__EOC