foreach my $key(keys %orgin)
{
#my $tmp_key=quotemeta "$key";

foreach my $val(@port_list) {
$val=~s/\s+$//;
#print "$val***********";
#my $tmp_val=quotemeta "$val";

if(exists $orgin{$val}) 
{
#print "same key :$tmp_val\n";
next;
}
else {
print "$val : $key Entered the else loop\n";
push @{$orgin{$val}}, "xxxx";
$count++;
}
}
}
print Dumper \%orgin;