sicp exercise 4.42

gistfile1.pl

use v5.12;

use Math::Combinatorics qw/permute/;
use List::MoreUtils qw/mesh/;
use Data::Dumper;

my @vars = qw/Betty Ethel Joan Kitty Mary/;
my @values = 1..scalar @vars;

say Dumper([
grep {
      ($_->{Kitty}  == 2 xor $_->{Betty}  == 3)
  &&  ($_->{Ethel}  == 1 xor $_->{Joan}   == 2)
  &&  ($_->{Joan}   == 3 xor $_->{Ethel}  == 5)
  &&  ($_->{Kitty}  == 2 xor $_->{Mary}   == 4)
  &&  ($_->{Mary}   == 4 xor $_->{Betty}  == 1)
}
map { +{ mesh(@vars, @$_) } } permute(@values)
]);