#!usr/bin/perl
use strict;
use warnings;

my %table_hash = (
		'0,0' => 'X',
		'0,1' => 'Y',
		'0,2' => 'Z',		
);
print join ",",%table_hash,"\n";
my $n=0;
my $m=0;
foreach $n (0..3) {
	$table_hash{'$n,0'} = $m;
	$m++;
};
print join ",",%table_hash,"\n";