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