use strict;
use warnings;

use Data::Walk;
use Data::Compare;

sub find_structure_part {
    my $search_space = shift;
    my $target = shift;
    my $found = 0;

    walk sub {
        if (not $found and Compare($_, $target)) { $found = 1 }
    }, $search_space;

    return $found;
}