Shell Programming and Scripting

print_r(array_diff(array_map('strtolower', $arr2),array_map('strtolower', $arr1)));

my @tmp1=qw(This is the data of array1);
my @tmp2=qw(this is the data of array2);
sub comp{
	my @t1=@{$_[0]};
	my @t2=@{$_[1]};
	my $flag=$_[2] || 'Y';
	foreach my $item (@t2){
		my $reg = ($flag eq 'N')?qr/$item/i:qr/$item/;
		my $cnt = () = grep {$_=~/$reg/} @t1;
		#print "-->",$item,"-->",$cnt,"\n";
		print $item,"\n" if $cnt == 0;
	}
}
comp(\@tmp1,\@tmp2,'N');