perl tidy
drop