my %final_hash;
foreach my $data_pair ( @data_list)
{
  $key   = $data_pair->{ key };
  $value = $data_pair->{value};
  $final_hash{ $key } = $value;
}

use Data::Dumper;
print Dumper \%final_hash;

##</code><code>##

my %final_hash = 
  map { $_->{key} => $_->{value} } 
  @data_list;

#verify the output
use Data::Dumper;
print Dumper \%final_hash;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use Test::More tests => 2;

my @data_list = (
    { key => 'correct',    value => 'AAA' },
    { key => 'correction', value => 'BBB' },
    { key => 'date',       value => '20090303' },
    { key => 'date',       value => '20090308' },
);
my $expected = {
    correct    => 'AAA',
    correction => 'BBB',
    date       => '20090303',
    date       => '20090308',
};

my %final_hash_long;
foreach my $data_pair (@data_list) {
    my $key                = $data_pair->{key};
    my $value              = $data_pair->{value};
    $final_hash_long{$key} = $value;
}

my %final_hash_short =
  map { $_->{key} => $_->{value} } @data_list;

is_deeply( \%final_hash_long,  $expected, "long version works" );
is_deeply( \%final_hash_short, $expected, "short version works" );