# simple array
push @simple_array, $array_element;
my $simple_arrayref = \@simple_array;
push @{ $simple_arrayref }, $array_element;
# complex array
push @{ $complex_arrayref }, $array_element;
####
$self->{"Course(s)"}=[]
##
##
while (<>) {
chomp;
push @array, $_;
}