Select Code to Download

use Data::Dumper; print Dumper(+{ unsorted => \@array });
@array = sort {
...
} @array;
use Data::Dumper; print Dumper(+{ 
    sorted_on_first_three_elements => \@array });

use Data::Dumper; print Dumper(+{ unsorted => \@array });
@array = sort {
...
  return 0;
} @array;
use Data::Dumper; print Dumper(+{ sorted => \@array });

  my @user = (
   # [ username, fullname, authlevel, { otherinfo } ],
...
               { supervisor => 'amcclain', department => 'theology', }
+ ],
   # and so on and so forth
  );