sub mainCSV 
{
	# Open the CSV input file
	open (my $infile_CSV1, '<', "$infile_CSV") or die "Unable to open $infile_CSV: $!\n";
	my %hash  = (); 
	my $hash_ref = \%hash;
	
	while (my $line = <$infile_CSV1>) 
	{
		chomp;
		$line =~ s/\s*\z//;
		my @array_CSV = split /,/, $line;
		my $key_CSV = shift @array_CSV;
		if ($hash{$key_CSV})
		{
			warn "Duplicate key '$key_CSV'";
		};
		$hash{$key_CSV} = \@array_CSV;
	}
	
	# Explicit scalar context 
	my $size = scalar keys %hash; 

	# Prints Number of Pins (Hash size...)
	print "Number of Pins: $size\n"; 
	
	# Open the output file and save hash in $outfile_RX_CSV
	open (my $outfile2, '>', "$outfile_CSV") or die "Unable to open $outfile_CSV: $!\n";
	print $outfile2 Dumper(\%hash); 
	close $outfile2;
	print "Stored $size list of pins in $outfile_CSV file.\n";
	
	
	# Method 1 to print hashref table
	while( my ($key, $value) = each (%$hash_ref )) {
		print "$key => $value\n";
	}
	
}