#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
#   Function:  uniqStrings()
#   Author:  Dave Mueller
#   Returns:     @uniq 
#   Parameters:  @array
#   Description: Returns a unique list of all Strings found in @array
#                Note: references wil be broken . . .
#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
sub uniqStrings
{
	my %temp = ();
	@temp{@_} = ();
	return keys %temp;
}

#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
#   Function:  uniqValues()
#   Author:  Dave Mueller
#   Returns:     @uniq 
#   Parameters:  @array
#   Description: Returns a unique list of all values found in @array  
#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
sub uniqValues
{
	my %temp = ();
	@temp{@_} = (1 .. scalar(@_));
	return map({$_[$_]} values %temp);
}