#!/usr/bin/perl -w
 use Test;
 BEGIN  {plan tests=>3} ;
use Test::Data qw(Array);
@arr=qw(roop  ras dar );
$a=dar;
array_any_ok( $a, @arr, [ NAME] );
array_empty_ok(@arr ,[ME] );