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