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