print "4th item in OTIs\n";

for $key (@{$data->{OTI}})
{
    print "  $key->[3]\n";
}