my %hash = (
        EX => 'ArraySite',
        AM => 'IOPort',
        PLE => 'AddressGroup',
        Number => '11',        
    );
    
    for my $key ( keys %hash ) {
        my $value = $hash{$key};
        print "$key => $value\n";
    }