# This looks wrong, but it's what you gave us
my $batches = $data->{Jobs}{Job}{Blocks}{Block}{Batches}{Batch};

for my $batch (@$batches) {
    # This looks also wrong
    my $item = $batch->{Items}{Item};
    print $item->{CorporateName} . "\n";
    print $item->{Amount} . "\n";
}