my @list_of_keys = sort grep { substr($_, 0, length($search)) eq $search || 
                               substr($_, -length($search)) eq $search }, 
                        keys %hash;