@result = split /\./, $keys, -1 or push @result, "";