use strict;
use warnings;

use YAML qw( DumpFile LoadFile );

my @aoh = ( { a => 1 } );

my $file = 'diskstats.perldata';

DumpFile( $file, \@aoh );

my $reconstituted = LoadFile($file);

# check it out in Data::Dumper style-
use Data::Dumper;
print Dumper $reconstituted;