use warnings;
use strict;


use personel;
use Data::Dump;


my @personnel = (
    [ 'amy', 35 ], [ 'bill', 55 ], [ 'george', 28 ], [ 'jason', 71 ],
    );

print "doesn't work: \n";
my @not_sorted_by_age = sort personel::sortAge @personnel;
dd \@not_sorted_by_age;
print "\n";

print "does work: \n";
my @sorted_by_age_descending1 = sort personel::cmpAge1 @personnel;
dd \@sorted_by_age_descending1;
print "\n";

print "also works: \n";
my @sorted_by_age_descending2 = sort personel::cmpAge2 @personnel;
dd \@sorted_by_age_descending2;
print "\n";

print "also works (somewhat slower): \n";
my @sorted_by_age_descending3 = sort personel::cmpAge3 @personnel;
dd \@sorted_by_age_descending3;
print "\n";

print "original array (should be unchanged): \n";
dd \@personnel;
print "\n";