knoppix@Microknoppix:~$ perl -MData::Dumper -Mstrict -wE '
> my @arr = map { [ $_ => 0 ] } 1 .. 15;
> $arr[ $_ - 1 ]->[ 1 ] = $_ for 5 .. 10;
> print Data::Dumper->Dumpxs( [ \ @arr ], [ qw{ *arr } ] );'
@arr = (
         [
           1,
           0
         ],
         [
           2,
           0
         ],
         [
           3,
           0
         ],
         [
           4,
           0
         ],
         [
           5,
           5
         ],
         [
           6,
           6
         ],
         [
           7,
           7
         ],
         [
           8,
           8
         ],
         [
           9,
           9
         ],
         [
           10,
           10
         ],
         [
           11,
           0
         ],
         [
           12,
           0
         ],
         [
           13,
           0
         ],
         [
           14,
           0
         ],
         [
           15,
           0
         ]
       );
knoppix@Microknoppix:~$