parent_cusp|cusp|isin|deal|tranche|det_date|col_type
38375U|36182D|36182D1|HMAG|HMBSWEE|20150416|mortgage
383333|361333|3618333|HABS|HABSDDE|20150330|mortgage2

##</code><code>##

Vendor|visp|barnembly|deal|tranche|Fund|subamt|colamt|basamt
38375U|3DD82D|36FF333|HMAG|HMBSWEE|9010|765423|364633|46566
38EE33|361DD3|36LLE33|H99S|HAOOODE|2330|377233|347433|34488

##</code><code>##

parent_cusp|cusp|isin|deal|tranche|det_date|col_type|Fund|subamt|colamt|basamt
38375U|36182D|36182D1|HMAG|HMBSWEE|20150416|mortgage|9010|765423|364633|46566
383333|361333|3618333|HABS|HABSDDE|20150330|mortgage2||||
38EE33|||H99S|HAOOODE|||2330|377233|347433|34488

##</code><code>##


#! /bin/env perl

my $File_Deal = $ARGV[0];
my $File_ATT = $ARGV[1];

open(F1, "<", $File_Deal);
open(F2, "<", $File_ATT);

my %hash = ();
while( <F1> ) {
  chomp;

  my($c, $c2, $c4, @val1) = split/,/, $_, -1;
$hash{$c1.$c2.$c4}[0] = $val1[0];
  $hash{$key}[1] = $val1[1];
  $hash{$key}[2] = $val1[2];

}
while( <F2> ) {
  chomp;

  my($c1,$c5, $c7, @val2) = split/,/, $_, -1;
$hash{$c1.$c5.$7}[3] = $val2[0];
  $hash{$key}[4] = $val2[1];
  $hash{$key}[5] = $val2[2];

}

for my $key (sort keys %hash) {
print "$key: $hash{$key}[0]:$hash{$key}[1]\n";   

}