#!/usr/bin/perl

my %hash;
my $rec_format_name = "foo";
my $rec_property = "color";
my $field_number = 3;
my $field_property = "length";

$hash{$rec_format_name}{$rec_property}[$field_number]{$field_property} = 7;

my $value =
     $hash{$rec_format_name}{$rec_property}[$field_number]{$field_property};
     
print "\$rec_format_name = $rec_format_name\n";
print "\$rec_property    = $rec_property\n";
print "\$field_number    = $field_number\n";
print "\$field_property  = $field_property\n";
print "-------------------------------------------\n";
print "\$value           = $value\n";


exit(0);