c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @multi_array = ([ 99, 88 ],  [ 77, 66 ],  [ 55, 44 ], );
 ;;
 push @{ $multi_array[$_] }, $_ for 0 .. $#multi_array;
 dd \@multi_array;
"
[[99, 88, 0], [77, 66, 1], [55, 44, 2]]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @multi_array = ([ 99, 88 ],  [ 77, 66 ],  [ 55, 44 ], );
 ;;
 $multi_array[$_][ @{$multi_array[$_]} ] = $_ for 0 .. $#multi_array;
 dd \@multi_array;
"
[[99, 88, 0], [77, 66, 1], [55, 44, 2]]