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