use diagnostics;

##</code><code>##

my @tableArray = (
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ],
     [ 1..COLS ]
);

##</code><code>##

sub addToTable {
     foreach (@_) {
          print "$_\n";
     }
     print "elements passed " . scaler(@_) ."\n";