@arr123= (
{
	BUNDLINGREASONID => 'CPT Manual or CMS manual coding instructions',
	EDITTYPE => 'B',
	EFFECTIVEDATE => '20130701',
	EXPIRATIONDATE => '20130701',
	STATUS => [ '1', '2' , { SPECIAL => 'Y'} ],
},
{
	BUNDLINGREASONID => 'CPT Manual or CMS manual coding instructions',
	EDITTYPE => 'B',
	EFFECTIVEDATE => '20150401',
	EXPIRATIONDATE => '',
	STATUS => [ '1', '2' , { SPECIAL => 'N'} ],
}
);

print @{ $arr123[0]{STATUS}}[2]->{SPECIAL};
print "\n";
print $arr123[1]{STATUS}[2]->{SPECIAL};