Select Code to Download

# This looks wrong, but it's what you gave us
my $batches = $data->{Jobs}{Job}{Blocks}{Block}{Batches}{Batch};
...
    print $item->{CorporateName} . "\n";
    print $item->{Amount} . "\n";
}

my $jobs =$data->{Jobs}{Job};
for my $job (@$jobs) {
...
        }
    }
}

GroupTags => {
    Jobs    => 'Job',
    Blocks  => 'Block',
    Batches => 'Batch',
},