print "data...\n";

print "$t_type{'b'}{'seven'}[0]->{'select'} \n";

foreach my $item ( @{$t_type{b}{seven}} ) {  
	print "... $item->{'select'}\n";
}