#!/usr/bin/perl

use strict;
use Data::Compare;

my $h1 = { 'FOO' => [ 'one', 'two' ] };
my $h2 = { 'FOO' => [ 'one', 'three' ] };

print 'structures of $h1 and $h2 are ',
  Compare($h1, $h2, { ignore_hash_keys => [qw(FOO)] }) ? '' : 'not ',
  "close enough to identical.\n";