my @data =  map { [$_, split(/\./, (split /\s+/, $_)[1])]} @all_rows;