%a=(
     "test1" => {
         "TITLE" => "incoming",
         "HEADER" => "Hi"
      },
      "test2" => {
	"TITLE" => "outgoing"
      }
)
$s = $a{"test1"}{"TITLE"};
print "$s\n";