foreach my $k ( sort { $self->{state}{inputs}{expected}->{$a} <=> $self->{state}{inputs}{expected}->{$b} } keys %{ $self->{state}{inputs}{expected} } ){ # do stuff }