@data = (
	[qw(Bubba  brutalski 20)],
	[qw(Bubba  brutalski 10)],
	[qw(JoeBob brutalski 20)],
	[qw(Jethro brutalski 20)],
	[qw(Junior brutalski 20)],
);

# Sorted by Name (Last, First)
@ByName = sort {$a->[1] cmp $b->[1] || $a->[0] cmp $b->[0]} @data;

# Sorted by Name, then score
@FullSort = sort {$a->[1] cmp $b->[1]
		  ||
		  $a->[0] cmp $b->[0]
		  ||
		  $a->[2] <=> $b->[2]} @data;