Select Code to Download

@data = (
    [qw(Bubba  brutalski 20)],
...
          $a->[0] cmp $b->[0]
          ||
          $a->[2] <=> $b->[2]} @data;

(
  [Bubba,  brutalski, 10],
...
  [JoeBob, brutalski, 20],
  [Junior, brutalski, 20]
)