sub in_array
 {
     my ($arr,$search_for) = @_;