Makeshifts last the longest.

rchou2, what are you looking for that wasn't answered for you here?
mkmcconn

sorry, i'm new to perl, so if some of the questions are obvious, i apologize.....what's the purpose of these 2 lines?

map {$_->[0]}
map { $_ ,/(\w+)\s+(\w+)\s+(\w+)/} <DATA>
[download]

Edit by tye

The second line creates an array for each element of the input list; its elements are the entire input string ($_) in the first element, and the first three words of the input (pulled out using the parens in the pattern match) in the next elements. The first line then later goes and pulls that first element containing the entire string back out of these arrays. Check out perldoc -f map to understand how it works.

Makeshifts last the longest.

There is nothing obvious about what's going on there, rchou2. Although it solves your problem (I think), it's not a very good answer because it's hard to explain and to understand. That's nothing in my favor - I can't immediately think of the way I would have done it before learning this trick.

Read more about the Schwartzian Transform to understand it. Especially, try to understand why it changes everything to remove the square brackets as you did in your cut and paste (you need them, to create the temporary arrays that are being used for sorting).
mkmcconn