@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;

##</code><code>##

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

##</code><code>##

 return -1;  # moves the item lower
 return +1;  # goes above the previous one
 return 0;   # equals