print for
   map  { $_->[ 0 ] }
   sort { $a->[ 1 ] <=> $b->[ 1 ] || $a->[ 2 ] <=> $b->[ 2 ] }
   map  { [ $_ , ( split m{,} )[ 1, 0 ] ] }
   <DATA>;