check to see if it is empty (whatever that means :D)

$correction = $data_pair->{value}
    if exists $data_pair->{value} and    # could be undef
      defined $data_pair->{value} and    # at least ""
      length $data_pair->{value}  and    # has length
      $data_pair->{value}         and    #  has true value
      $data_pair->{key} eq 'correct';
[download]