3 # $Id: ucmsort,v 2.0 2004/05/16 20:55:16 dankogai Exp $
18 push @lines,[ split ];
23 $a->[0] cmp $b->[0] # Unicode descending order
24 or $a->[2] cmp $b->[2] # fallback descending order
25 or $a->[1] cmp $b->[1] # Encoding descending order
28 print join(" " => @$_), "\n";