# combines two pairs into a longer pair
sub combine_codes_and_descriptions
{
  my ($sofar, $next) = @_;
  if (!defined($sofar)) {return $next;}
  [$sofar->[0] . $next->[0], $sofar->[1] . ", " . $next->[1]]; 
}

sub multi_dim_reduce
{
  # $sofar optional
  my ($actionsub, $AoA, $combinesub, $sofar) = @_;
  if (@$AoA) {
    my $this_array = shift @$AoA;
    for my $elem (@$this_array) {
      my $subarray = [ @$AoA ];
      multi_dim_reduce($actionsub, $subarray, $combinesub,
                       $combinesub->($sofar,$elem));
    }
  } else {
    $actionsub->($sofar);
  }
}

# The main event
@data = 
(
    [
        [1, "Darth Vader"],
        [3, "Luke Skywalker"],
        [5, "Obi Wan Kenobi"],
    ],[
        [0, "Lighsabre"],
        [5, "Blaster"],
        [9, "Rocket launcher"],
    ],[
        [10, "Dagobah"],
        [14, "Kashyyyk"],
    ],
);
multi_dim_reduce(sub {my ($c,$d) = @{$_[0]}; print "$c\t$d\n";},
                 [ @data ],
                 \&combine_codes_and_descriptions);
[download]

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]

You're a long-standing monk here; is this the attitude that you like to find at the front gate every day? It probably took you more time to type up your example than it would to code the solution.

For the fixed-number-of-columns case, just nest loops.

my $struct = [ [], [], [] ];
for my $A (@{$struct->[0]})
{
  for my $B (@{$struct->[1]})
  {
    for my $C (@{$struct->[2]})
    {
       ...
    }
  }
}
[download]

For the variable-number-of-columns case, a recursive solution or a stack iteration would work.

#!/your/perl/here

use strict;
use warnings;

# backwhack whitespace
my @data = 
(
    [
        [1, 'Darth\ Vader'],
        [3, 'Luke\ Skywalker'],
        [5, 'Obi\ Wan\ Kenobi'],
    ],[
        # note stray trailing blank here
        [0, 'Lighsabre\ '], 
        [5, 'Blaster'],
        [9, 'Rocket\ launcher'],
    ],[
        [10, 'Dagobah'],
        [14, 'Kashyyyk'],
    ],
);

# transpose innermost 2D matrices
my @new_data;
foreach my $set ( 0..$#data )
{
    foreach my $pairs ( 0..$#{$data[$set]} )
    {
        foreach my $items ( 0..$#{$data[$set][$pairs]} )
        {
            $new_data[$set][$items][$pairs] = $data[$set][$pairs][$ite
+ms];
        }
    }
}

# comma-separated pattern specs for glob
$"=',';

# had to break this in two because of tab and newline issues
my $glob1 = "{@{$new_data[0][0]}}{@{$new_data[1][0]}}{@{$new_data[2][0
+]}}";
my $glob2 = "{@{$new_data[0][1]}}" . '\,\ ' . "{@{$new_data[1][1]}}" .
+ '\,\ ' . "{@{$new_data[2][1]}}";

my @glob1 = glob $glob1;
my @glob2 = glob $glob2;

print map {"$glob1[$_]\t$glob2[$_]\n"} 0..$#glob1;
[download]

Simple use of Algorithm::Loops, but so simple I didn't test it. (:

#!/usr/bin/perl -w
use strict;

use Algorithm::Loops qw( NestedLoops MapCarE );

my @data = (
    [
        [1, "Darth Vader"],
        [3, "Luke Skywalker"],
        [5, "Obi Wan Kenobi"],
    ],[
        [0, "Lighsabre "],
        [5, "Blaster"],
        [9, "Rocket launcher"],
    ],[
        [10, "Dagobah"],
        [14, "Kashyyyk"],
    ],
);

my @joined= NestedLoops(
    \@data,
    sub {
        my( $dig, $txt )=
            MapCarE { [ @_ ] } @_;
        [ join('',@$dig), join(', ',@$txt) ];
    },
);

for(  @joined  ) {
    print join("\t",@$_), $/;
}
[download]

updateSheesh, it's a joke about first-normal form. There was a smiley. I'm sorry if this appeared to be belittling the OP's question, that wasn't my intention.