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

>perl -wMstrict -MData::Dumper -le
"my @d_pairs = (
   { key => 'foo', value => 'bar' },
   { key => 'fee', value => 'fie' },
   );
 my %hash = map { $_->{key} => $_->{value} } @d_pairs;
 print Dumper \%hash;
"
$VAR1 = {
          'fee' => 'fie',
          'foo' => 'bar'
        };
[download]