检测数组成员

#!/usr/bin/perl
use strict;
use warnings;

=pod
   闲着无事，就是写了这个小函数，该函数是用来检测一个值是否是数组中的
 成员。使用方法 &in(值，数组)，如果为存在返回True,否则返回False
=cut
sub in()
{
   my $value = shift;
   my @arr   = @_;
    die "Useage: in(value,array)\n" if(!$value);
    die "Useage: in(value,array)\n" if(!@arr);

   if(grep {$_ eq "$value"}@arr)
   {
       return  "True";
   }
   else
   {
      return "False";
   }
}