#!/usr/bin/perl

  use strict;

  use Data::Dumper;
  use YAML qw(Dump Load);

  my $before = {

    ok => [
      {one => 1},
      {two => 2},
    ],

    not_ok => [
      {-one => 1},
      {-two => 2},
    ],

  };

  my $after = Load(Dump($before));

  print Dumper $before;
  print Dumper $after;