#!usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @table = (
    ['X', 'Y', 'Z'],
);

print Dumper \@table;

my $m=0;
foreach my $n (0..3) {
    $table[$n][0] = $m++;
};

print Dumper \@table;