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