#!/usr/bin/perl -w

$table={};

for $i (1..10){ $table{$i} = $i};

for $i (1..10){
               if ($i%2==0){$table{$i}{shape}='rect'}
               else {$table{$i}{shape}='circle'}
               $table{$i}{coords} = [0,1,2,3,4,5,6,7,8,9];
               }

foreach $key ( keys %table ){
               print "Key $key Value $table{$key}\n";
               print "Shape $table{$key}{shape}\n";
               foreach(@{$table{$key}{coords}}){print "$table{$key}{coords}[$_]"};
               print "\n";
               };