# Simple num item in list check
sub is_in_num
{
	my ($item, $l1) = @_;

	foreach my $e1 (@$l1)
	{
		if ($e1 == $item)
		{
			return 1;
		}
	}
	return 0;
}

# Simple str item in list check
sub is_in_str
{
	my ($item, $l1) = @_;

	foreach my $e1 (@$l1)
	{
		if ($e1 eq $item)
		{
			return 1;
		}
	}
	return 0;
}