use Readonly;

Readonly my @readonly => (['book', 'pen', 'pencil'],
                          ['bat', 'ball', 'glove'],
                          ['snake', 'rat', 'rabbit']);

print $readonly[0][0], "\n";

$readonly[0][0] = "comicbook";

1;