#!/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',
        });

##</code><code>##

@c = ({ domain => 'adomain.com',
       otherdata => 'astuff',
       data => 'adata',
     },
     { domain => 'bdomain.com',
       otherdata => 'bstuff',
       data => 'bdata',
     });

##</code><code>##

Using perl 5.8.1-RC3 unless otherwise noted.
Apache/1.3.33 (Darwin) unless otherwise noted.
Mac OS X 10.3.9 unless otherwise noted.