#!/usr/bin/perl
use warnings;
use strict;
use YAML 'DumpFile';
$|++;

# Cheating in a bit of data here...
my %images;
@images{1..5} = map "image$_.jpg", 1..5;

# Voila!
DumpFile("yaml.db", \%images);