#!/usr/bin/env perl

# レッツ無名ハッシュ

$TEST{'STR'} = { name => 'PC',      items => { 1 => 'STR-1 values.' } };
$TEST{'VAL'} = { name => 2,         items => { 2 => 'VAL-2 values.' } };
$TEST{'DAT'} = { name => 'テスト',  items => { 3 => 'DAT-3 values.' } };

td();

sub td {
    while (($kn, $ki) = each %TEST) {
        print ">>>" . $kn . "\n";
        while (($k,$v) = each %{$ki->{items}}) {
            print ">$k: $v\n";
        }
    }
}