There are probably much better ways of handling your data than to define 73 different variables with names like w1, w2, ... w73. For example, if you define them as either a function or an array, then you can index into them and combine them in simple ways. Here's an example where w[1] and w[2] and etc are defined:

    w[n_] := {n, n^2};

I'll just define them this way, but you could have them read in as data or created them in any fashion (just as you would have previously defined w1, w2, ... w73). Now you can make your output:

    Table[w[i], {i, 1, 5}]
    {{1, 1}, {2, 4}, {3, 9}, {4, 16}, {5, 25}}

or use Map:

    w[#] & /@ Range[5]

to get the same output. If you wish another level of brackets, this can be accomplished with `Table[{w[i]}, {i, 1, 5}]` or with `{w[#]} & /@ Range[5]`.