sub ArrTrim {
    # Purpose
    #   Trims each element of an array.
    # Parameters
    #   Arr (Array) = Each element of this array is trimmed.
    # Return (Array)
    #   Returns the specified array (Arr) with leading and trailing whitespaced removed from each element.

    my @r;      # Return buffer

    foreach (@_) {
        push(@r, StrTrim($_));
    }

    return @r;

}