header1,header2,header3....
info01,info02,info03...
info11,info12,info13..
  :       :      : 

##</code><code>##


$VAR1 = {
          info01 => {
                       info02 => {
                                    info03 => {

         info11 =>  {  
                      info12  => {
                                   info13 => {

##</code><code>##


#  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);