Select Code to Download

sub fill_array(\@)
{
       my ($right_array) = @_;
...

# As a test
fill_array (@name);

my @row = @{$name[1]};           # Row 1
my $row_item_1 = $name[1][1];    # Row 1 column 1