# say I've got a two dimensional array...
   @a = ( ["oops", 0], [ "happy", 2 ], [ "word", 4 ] );

   # and I wanna print the contents of it thusly:
   foreach $ar (@a) {
        print "$ar->[0] is $ar->[1]\n"
   }

   # how would I sort the @a based on the $ar->[0]?