in reply to Simple things can be most difficult...Sometimes!

Wouldn't it make more sense to write 
for my $Port (keys %{$Port_Channel_Details})
   {
       print "\nPort Channel $Port : \n";
       print "$Port\n" if exists $Interface_Details->{$Port};
   }

[download]
? Not that it should do anything different.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom