#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
#   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{@_} = (0 .. $#_);
        return map({$_[$_]} values %temp);
}