#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

my @db = (
  {one   => q{red}},
  {two   => q{green}},
  {three => q{blue}},
);

#print Dumper \@db;

for my $rec (@db){
  my ($key, $value);
  while (($key, $value) = each %{$rec}){
    print qq{$key -> $value\n};
  }
}

##</code><code>##

one -> red
two -> green
three -> blue