in reply to Initializing a multi-dim array
my @a = map { [(0) x 100 ] } 1..5; [download]
See also: perllol, perlreftut.