##use:runsub isitme;

##isitme:
if $actor eq $target then burnit;

##burnit:
say 'sound',"[$init_obj] warms up their hands on [$actor]";

say 'sound',"[$init_obj] burns their fragile little fingers on [$actor]";