[perl #130294] [SEGV] native 2d array example SEGV's

[Will Coleda via RT]

Attaching gistfile to ticket

-- 
Will "Coke" Coleda

use v6;
my $size = 3001;
my int @mat[$size; $size];

init-array(0, $size - 1, $size * $size);
say 'done';
sub init-array($r, $c, $val) {
  @mat[$r; $c] = $val;
  if $c - 1 >= 0
  { # left
    init-array($r, $c - 1, $val - 1);
  }
  elsif $r + 1 < $size
  { # down
    init-array($r + 1, $c, $val - 1);
  }
}