##use:runsub isitme;

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

##musicit:
say 'sound',"The music from [$actor] plays very very loudly";

say 'sound',"[$init_obj] turns off [$actor] because the neighbours were complaining";