Select Code to Download

my $matched=0;

...
                    print $emp->{'Name'} . "\n";
                    $matched++;}
                $index++;}}}}

my $matched=0;
my $index=0;
...
                    --$index;
                    last DN;}}}}
$index++;}

%hash= (
    $email => {
        name => 'joe'
        id = > '123' })

foreach my $email (@array){
    print $email->{'name'};  #ok 
    print $email;}        #error hash refs