You could consider contributing it to List::Utils (not List::Util, which is in the core and only will provide often-wanted stuff, but the other module which has a range of stuff considered too little useful for List::Util).