Select Code to Download

Column_1,Column_2
Name11,In
Name21,Out
Name31,In
Name41,In

use Data::Dumper;
my $infile = file.csv;
...
    
     print Dumper(\%hash);
}