Select Code to Download

$data->{datafield}[$i]{subfield}[$j]{content}

my $datafields = $data->{datafield};
foreach my $datafield (@$datafields) {
...
      ...
   }
}