Select Code to Download

use strict;
use warnings;
...
}

store \%table, 'addition_table';

use strict;
use warnings;
...
}  
printf "%s",$matrix{$col - $_} for (1..$col);
print "\n";

H:\perl>perl adder.pl 1
1
...

H:\perl>perl adder.pl 999999999999999999999999999999999999999999 1
1000000000000000000000000000000000000000000