sub in_array{
    my $value = shift;
    my @array = @_;
    foreach $item (@array){
	if($value eq $item){
	    return 1;
	}
    }

    return 0;
}


@array1 = ("q", "w", "e", "r", "t","z");
@array2 = ("q", "w", "e", "r", "t","y");

foreach $value (@array1){
    if(!in_array($value,@array2)){
	print "Value $value does not match any value in \@array2\n";
    }
}