print exists $search{$_}   ?
          "$_ : Found $_\n"    :
          "$_ : Not Found $_\n";