my @cls = split /\./, $field;