@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};

​

​

#!/usr/bin/perl

use strict;

use warnings;

use Data::Dumper;

​

my %emp = (

    'it' =>  {

      'Sam 1' => 'Manager',

      'Richi 1' => 'Tech Lead',

      'Dannel 1' => 'Project Manager',

    },

    'it_support' => {

      'Sam 2' => 'Manager',

      'Richi 2' => 'Tech Lead',

      'Dannel 2' => 'Project Manager',

    },

    'development' => {

      'Sam 3' => 'Manager',

      'Richi 3' => 'Tech Lead',

      'Dannel 3' => 'Project Manager',

    },

    'lead' =>{ 'it'=> ['sam1', 'sam2', {country=>'IN',STATE=>'TG'}] }

);

​

#print Dumper(%student);

foreach my $key (keys %emp){

    #print $key."\n";

  print "Department = $key : \n";

  foreach my $key_name (keys %{$emp{$key}}){

    my $len = $emp{$key}->{$key_name};

      print "\t Name : ".$key_name." == ".$emp{$key}->{$key_name}."\n";

  }

}

​

print $emp{'lead'}{'it'}[2]->{COUNTRY};