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

##</code><code>##

print for
   map { substr $_, 8 }
   sort
   map { pack q{NNA*}, ( split m{,} )[ 1, 0 ], $_ }
   <DATA>;