map { pox $_ } $montagues, $capulets;

##</code><code>##

require House;
map { pox $_ }
map { House->new($_) }
    qw(Montague Capulet);

##</code><code>##

pox $_ foreach map { House->new ($_) } qw (Montague Capulet);

##</code><code>##

BEGIN{ *plague = \&pox;}