Perl arrays within arrays
http://www.suite101.com/article.cfm/perl/94552
http://www.misc-perl-info.com/perl-array-length.html
EXAMPLE
# Parts and Programme Codes
@PSUB01 = (’PSUB01′,[”Part A”,”Part B”,”Part I”]);
@PSUB02 = (’PSUB01′,[”Part A”,”Part B”]);
@PSUB03 = (’PSUB03′,[”Part A”,”Part B”]);
@PSUB12 = (’PSUB12′,[”Part A”,”Part B”,”Part I”]);
@PSUB13 = (’PSUB13′,[”Part B”,”Part I”]);
@programmecodes = (\@PSUB01,\@PSUB02,\@PSUB03,\@PSUB12,\@PSUB13);