Select Code to Download

# simple array
push @simple_array, $array_element;
...
push @{ $simple_arrayref }, $array_element;
# complex array
push @{ $complex_arrayref }, $array_element;

$self->{"Course(s)"}=[<STDIN>]

while (<>) {
    chomp;
    push @array, $_;
}