if second of hit then dohit;

##dohit:
$hit1 = (savagely,viciously,ferociously,brutally);
$hit2 = (lacerates,rips,tears,slashes);
print "[$init_obj] $hit1 $hit2 with his [$actor]";