use warnings;
use strict;
use Data::Dumper;

my %collector;

foreach my $file (@ARGV) {
    open my $fh, '<', $file or die $!;
    while (<$fh>) {
        chomp;
        my @vals = split /,/, $_, 4;
        if ( !exists $collector{ $vals[0] } ) {
            $collector{ $vals[0] } = [ @vals[ 1 .. 3 ] ];
        }
        else {
            push @{ $collector{ $vals[0] } }, $vals[2];
        }
    }
}

print Dumper \%collector;

##</code><code>##

$VAR1 = {
          'CRDX   7067' => [
                             ' L',
                             '  04/05/13',
                             ' TYCO',
                             '  04/20/13'
                           ],
          'AOKX 495408' => [
                             ' L',
                             '  04/02/13',
                             ' SWCOMP',
                             '  04/20/13',
                             '  04/15/13'
                           ],
          'BLHX    102' => [
                             ' L',
                             '  04/01/13',
                             ' WILDCOM',
                             '  04/03/13',
                             '  04/30/13'
                           ],
          'WW     9030' => [
                             ' L',
                             '  04/02/13',
                             ' HALLI',
                             '  04/30/13'
                           ]
        };