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