#! c:/perl/bin/prl.exe
#
use strict;

my ($Rec,$pc_name);

while (<DATA>) 
{
	$pc_name = $1, next if (/interface (\.)+$/);
	$Rec->{$pc_name}->{$1} = $2 if  (/switchport description (\.+)$/);
}

for my $data (keys %{$Rec})
	{
		print "$data \n";
		for my $data2 (keys %{$Rec->{$data}})
		{
			print "\t$data2 : $Rec->{$data}->{$data2}\n";		
		}
	}