Select Code to Download

use strict;
use warnings;
...
my %lc_class; 
$lc_class{PN} = \@subjects;
print Dumper \%lc_class;

use strict;
use warnings;
...
PN = this, that, the other
GN = something
RT = test with some space, testwithout, And more space

$VAR1 = {
          'RT' => [
...
                    'something'
                  ]
        };