my @keys = grep { defined $hash{$_} || $_ eq $key } sort keys %hash;