trying to remember how to write perl
red commit sweep