# sort criteria eval-ed: wacky results
  my $sortCriteria = sub { $hr->{$b}->{"number"} <=> $hr->{$a}->{"number"};};
  # WHAT AM I DOING WRONG ON THE NEXT LINE?
  @sortedKeys = sort { &{$sortCriteria} } keys %$hr;
  print "\n\nsort criteria eval-ed\n";
  foreach my $sortedKey(@sortedKeys){
    print $hr->{$sortedKey}->{"number"} . " " . $hr->{$sortedKey}->{'name'} . "\n";
  }