while (<>){ 
 chomp; 
 @line = join (" * ", (split/ /)[1,0]),"\n"; 
 @line2 = sort @line , "\n"; 
print @line2 . "\n"; 
 }