my ($present_1, ...) = ($verb) x 5;