#!/usr/bin/perl -w

#    ___40
#   |   |
# 20|___|

use strict;
my ($i, $ii, %matrix, %asd);

#test
$i=0;
%asd=($i => {$i => " "});
print $asd{0}{0};		#klappt wunderbar
#test

#initialisierung %matrix
for ($i=0;$i<20;$i++)
{
 for ($ii=0;$ii<40;$ii++)
 {
  %matrix=($i => { $ii => "X"});
 }
}
print $matrix{0}{1};		#klappt nicht

main();

sub main
{
for (;;) #main
{
print ("	         Matrix\n");
print ("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n");
for ($i=0;$i < 20;$i++ )
{ 
 print ("x");
 for ($ii=0;$ii < 40;$ii++)
 {
 
 print $asd{0}{0};		#klappt auch wunderbar
 #print $matrix{1}{1}; klappte auch nicht 
 }
 print ("x\n");
}
print ("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n");
sleep(1);
}
}