use strict;
use warnings;
use Data::Dumper;

my @subjects = split /, /, "foo, bar, baz";
my %lc_class; 
$lc_class{PN} = \@subjects;
print Dumper \%lc_class;