my @wanted;

my %keys;
$keys{$_->{flag}}++ foreach (@array1, @array2);

my @unique = grep {$keys{$_->{flag}} == 1} @array2;
print Dumper(@unique);