if (length $new && !length $current) { ++$$filled; } elsif (!length $new && length $current) { --$$filled; }