for my $data_pair (@data_list) {
print "The value is $data_pair->{'correct'}\n";
}