#!/usr/bin/perl

use strict;
use Data::Dumper;

my @a = ({ domain => 'adomain.com',
          data => 'adata',
        },
        { domain => 'bdomain.com',
          data => 'bdata',
        });

my @b = ({ domain => 'adomain.com',
          otherdata => 'astuff',
        },
        { domain => 'bdomain.com',
          otherdata => 'bstuff',
        });