## Example
my $records = {};
my $newrow = {};
$newrow->{'name'} = "tom";
$newrow->{'tel'} = "123";
$newrow->{'addr'} = "abc";
$records->{'1'} = $newrow;
my $newrow = {};
$newrow->{'name'} = "dick";
$newrow->{'tel'} = "456";
$newrow->{'addr'} = "def";
$records->{'2'} = $newrow;
my $newrow = {};
$newrow->{'name'} = "harry";
$newrow->{'tel'} = "789";
$newrow->{'addr'} = "ghi";
$records->{'3'} = $newrow;
printf "1 : %-10s\t %-10s \t %-10s\n",$records->{'1'}->{'name'},$records->{'1'}->{'tel'},$records->{'1'}->{'addr'};
printf "2 : %-10s\t %-10s \t %-10s\n",$records->{'2'}->{'name'},$records->{'2'}->{'tel'},$records->{'2'}->{'addr'};
printf "3 : %-10s\t %-10s \t %-10s\n",$records->{'3'}->{'name'},$records->{'3'}->{'tel'},$records->{'3'}->{'addr'};
|