for my $data_pair (@data_list) {

print "$data_pair->{'key'},$data_pair->{'value'}\n";

}
correct,AAA
correction,BBB
date,20090303
date,20090308