print $wh "$colums1{$i} $row->[$i]$data2{$colums1{$i}}\n";

#!/usr/bin/perl
use strict;
use warnings;
 
use Text::CSV;
use Data::Dumper;
 
 
my $infile1 = "DATA2.csv";
my $infile2 = "default.csv";
 
 
my $csv = Text::CSV->new(
  { sep_char => ',', allow_whitespace => 1, binary => 1 }
);
 
 
# open input files
open my $csv_1, '<', $infile1       or die "open($infile1,r) failed: $!";
open my $csv_2, '<', $infile2       or die "open($infile2,r) failed: $!";
 
 
 
 
<$csv_2>;                                    
my @columns2 = @{ $csv->getline($csv_2) };  
my @values   = @{ $csv->getline($csv_2) };  
my %data2;
for my $i ( 0 .. $#columns2 ) {             
 
    $data2{$columns2[$i]} = defined $values[$i] ? $values[$i] : '';
}
 
 
warn Data::Dumper->Dump( [ \%data2 ], [ '*data2' ] )    if $ENV{DEBUG};
 
 
my @colums1;
while ( my $row = $csv->getline( $csv_1 ) ) {
    next    if 0 == $#{$row};               
    next    if 6 == $#{$row};               
 
    my ( $significator, $filename ) = split m{\s+}, $row->[0];
 
 
    if ( $significator eq 'default' ) {
        @colums1 = @$row;
        shift @colums1;
 
        warn Data::Dumper->Dump( [ \@colums1 ], [ '*columns1' ] )    if $ENV{DEBUG};
    }
 
    elsif ( $significator eq 'false' ) {
        warn Data::Dumper->Dump( [ $row ], [ '*row' ] )    if $ENV{DEBUG};
 
        open (my $wh, ">", "$filename.csv" ) or die "Can't open per-line file $filename: $!\n";
 
 print $wh "$filename:\n";
 
        shift @$row;
        for my $i ( 0 .. $#{$row}-1 ) {
 
            print $wh "$colums1[$i] $row->[$i]$data2{$colums1[$i]}\n";
 
        }
 
        close $wh or die "close($filename,w) failed: $!";
    }
 
}

1. .pl line 63, <$csv_1> line 127.
2. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
3. csv_1> line 127.
4. Use of uninitialized value within @colums1 in concatenation (.) or string at new
5. .pl line 63, <$csv_1> line 127.
6. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
7. csv_1> line 127.
8. Use of uninitialized value within @colums1 in concatenation (.) or string at new
9. .pl line 63, <$csv_1> line 127.
10. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
11. csv_1> line 127.
12. Use of uninitialized value within @colums1 in concatenation (.) or string at new
13. .pl line 63, <$csv_1> line 127.
14. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
15. csv_1> line 127.
16. Use of uninitialized value within @colums1 in concatenation (.) or string at new
17. .pl line 63, <$csv_1> line 127.
18. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
19. csv_1> line 127.
20. Use of uninitialized value within @colums1 in concatenation (.) or string at new
21. .pl line 63, <$csv_1> line 127.
22. Use of uninitialized value within @colums1 in hash element at new.pl line 63, <$
23. csv_1> line 127.
25. C:\Users\Desktop\CAV>