chomp $line;
          $line =~ s/\s*\z//;
          my @array_CSV = split /,/, $line;
          my ($key_CSV, $value_CSV, @extraStuff) = @array_CSV;
          if ($hash{$key_CSV})
          {
               warn "Duplicate key '$key_CSV'";
          };
          $hash{$key_CSV} = $value_CSV;