Select Code to Download

use Test::Deep;

...
{
  print "they match"
}

$animals = set("cat", "dog");
$people = set("john", "mary");
$a_p = set($animals, $people);

print eq_deeply($structure, $a_p);