sub firstname_descending {
  $data{$b}{'FirstName'} cmp $data{$a}{'FirstName'};
}