Select Code to Download

use strict;
use warnings;
...
A, B, C
D,E,F
G, H,I

$VAR1 = {
          'A' => 'B,C',
          'D' => 'E,F',
          'G' => 'H,I'
        };