sub debuglog { push @debuglog, {item => $_} for ( @_ ); }