for my $Info (@Switch_Array)
{
	if ($Info =~/show port-channel database/)
	{
		next unless ($Info ne "");
		my @Filter = (split /(port-channel \d\n)/,$Info);
		print "$1 : $Filter[0]\n";
		
#		for my $Filtered (@Filter)
#		{
#			print "$Filtered \n";
		}
	}