my $sortCriteria = '$hr->{$b}->{"number"} <=> $hr->{$a}->{"number"}';
my $sortfunc = eval "sub { $sortCriteria }';
@sortedKeys = sort $sortfunc keys %$hr;