if second of hit then whattodo;

##whattodo:dosomething/3;

##dosomething:
$act = (glints,sparkles,shines);
$way = (dazzling,amazing,hipnotic,facinating);

print "[$actor] $act in a $way way";