print map { $_->[ 0 ] }
sort { $b->[ 1] <=> $a->[ 1 ]}
map { [ $_ , m/ (\S+)$/ ] } <>;