#!/usr/bin/perl -w

use strict;
use Test::Simple tests => 2;
use Test::Data qw(Array);

my @arr = qw( roop  ras dar );
my $a = 'dar';

array_any_ok( $a, @arr, '$a is in @arr' );
array_empty_ok( @arr, '@arr is empty' );