my $sortref = \&firstname_descending;
my @order = sort $sortref keys %data;