use strict;
use warnings;

my %data;
my %dates;
my %zips;
while (<DATA>) {
   chomp;
   my ($zip, $amt, $date, $candid) = split;

   $zips {$zip } = 1;
   $dates{$date} = 1;

   $data{$candid}{$zip}{amts}{$date} += $amt;
}

my @candids = sort keys %data;
my @dates   = sort keys %dates;
my @zips    = sort keys %zips;

local $, = "\t";
local $\ = "\n";
for my $candid (@candids) {
   my $table = $data{$candid};

   print('CANDID', 'ZIP', (map "MONEY ($_)", @dates));

   for my $zip (@zips) {
      my $row = $table->{$zip};
      my @amts = map { $_ || 0 } @{ $row->{amts} }{ @dates };
      print($candid, $zip, @amts);
   }

   print('');
}

__DATA__
12345  200 11062000 C1234
12345   50 11062000 C1234
67890   50 11072000 D5555
38401  250 11062000 C00003418
77024  200 11062000 C00003418
75711 1000 11072000 C00003418
33480 5000 11072000 C00003418