sub ArrDeleteWS {
    # Purpose
    #   Removes elements from an array that contain only whitespace.
    # Parameters
    #   1 Arr (Array) = The array we're working with.
    # Return (Array)
    #   Returns the specified array (Arr) with elements removed that contain only whitespace.

    my @r;      # Return buffer

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

    return @r;

}