use Data::Dumper;

use strict;
use warnings;

my $blah = 
{

              {
                flinstones => "fred",
                jetsons    => "george"
              },
              {
                flinstones => "fred",
                jetsons    => "jane"
              },
              {
                flinstones => "barney",
                jetsons    => "george"
              },
              {
                flinstones => "barney",
                jetsons    => "jane"
              },

};

print Dumper($blah);