Select Code to Download

   %h = (
      a => [3, 9, 4],
...
      c => [9, 7, 2],
      ...
   )

    my ($x,$y,$z) = @{$h{$key}}; 
    $o->{m}[$x][$y][$z] = ...

    sub matrixGet {
        my ($o, $x, $y, $z) = @_;
...
    ...
    $o->matrixGet(@{$h{$key}});
    $o->matrixSet(@{$h{$key}},5);

    sub matrixGet {
        my ($m, $x, $y, $z) = @_;
...
    }
    ...
    matrixGet($o->{m},@{$h{$key}});