sub search {
    my ( $number, $target ) = @_;
       foreach my $i ( 0 .. $#$number ) {
       return $i if $i == $target;
       }
      return;
}


print search (100,50);