push @array,
    map {
      $_->[1] =~ s/[\s?,]//g and $_->[1]
        if $_->[0] =~ /\S/
    } $ts->rows;