#  MODULES
use strict;
use warnings;
use Pod::Usage;
use Data::Dumper;
use Getopt::Long;
use File::Basename;
use Cwd 'abs_path';

use Data::Dumper qw(Dumper);
use Text::CSV;


my $csv = Text::CSV->new({
    binary    => 1, 
    auto_diag => 1, 
    sep_char  => ','
});


my @columns;

open(my $input, '<:utf8',"input.csv") or die;

while (<$input>){
        $csv->parse($_) or die "parse() failed: ";
        my @data = $csv->getline($input);
        
        for my $i (0..$#data) {
               # push @{$columns[$i]}, $data[$i];
               push @{$columns[$i]}, $data[$i];
            


        }
}
close $input;

my %hash = map {shift @$_ => $_} @columns;

use Data::Dumper;
print Dumper(\%hash);