Updated what i am trying to achieve ; hope it explains Thanks for any help

So at least show us samples of the two input files (or file and sample array contents), and what you expect to see as a result.

You imply that you already have code that populates the array and maybe even a hash, so show us that code.

As an aside, if you are so new to Perl, and I guess to programming generally, where did you learn words like hash, array, function and regex?

True laziness is hard work

New to perl not programming as such Anyways this is what I have written

#!/sbin/perl -w
use strict;
use InCharge::session;

# Input credentials for the connection to DOMAIN

my $domain = 'IP';
my $user = 'admin';
my $passwd = "asdfgh";
my $broker= 'localhost:426';

my $session = "";

# Setting up the connection to console/domain manager....

$session = eval {InCharge::session->new(
        broker => $broker,
        domain => $domain,
        username => $user,
        password => $passwd)
};

if($@){
        print "Could not Connect to $domain \n.......";
        exit 2;
}

my $sourceDomainName=eval{$session->getServerName};
if($@){

        print "Script Failed to get ServerName....Exiting the Script\n
+";
        exit 1;
}

print "Server is....... $sourceDomainName \n";

# Reading the Key Value from ini Files
my @providerCloudSequence;

open(my $iniFH, '<', '/tmp/user_defined_connection.ini') or die "Unabl
+e to open file:$!\n";

while(<$iniFH>) {
    chomp;
    my @providerCloudClass=split('=',$_);
    push @providerCloudSequence,$providerCloudClass[0];
    if($@){
        print "Script Failed to get the Sequence....Exiting the Script
+\n";
        exit 1;
    }

}
my %idlcodes = map { split /=|\s+/; } <$iniFH>;
if($@){
        print "Script Failed to create the hash....Exiting the Script\
+n";
        exit 1;
 }
close $iniFH;

<b> I get the file into hash and sequence (keys) into array as hash do
+esnt follow sequence , idea is to use keys from array and get value f
+rom hash and compare againt the instances i get below. Incharge sessi
+on is a 3rd part API </b>

my @networkAdapterInstances=$session->getInstances("NetworkAdapter");

for (my $index=0;$index<=$#networkAdapterInstances;$index++){

        my $interfaceObject=$session->object("NetworkAdapter",$network
+AdapterInstances[$index]);
        ( my $interfaceAlias,my $systemName,my $deviceID)=$interfaceOb
+ject->get("InterfaceAlias","SystemName","DeviceID");
        if($@){
                print "Script Failed \n";
                exit 1;
        }
        exit 1;
        print "$interfaceAlias \n";

}
[download]