sub clear_it { $_[0] = []; }