for (@MainArray) {
    @$_ = grep { ! /[a-z]/ } @$_;
}