my @list_of_keys = sort grep /(^$search|$search$)/o, keys %hash;