since no-one else has mentioned it, and since your data might really be CSV and not whitespace delimited as your sample shows, you may want to look at Text::Parsewords (this is a standard module). Use like-

@line = quotewords(',',0,$_);
[download]

slurp and sort left to your imagination... of course the best data structure will depend on what else you plan on doing with the data.