use strict;
use warnings;
use Storable;

my (%table);
foreach my $i (0..9) {
  foreach my $j ($i..9) {
    $table{$i}{$j} = $table{$j}{$i} = $i + $j
  }
}

store \%table, 'addition_table';