while (<DATA>)
{
    $pc_name = $1, next if (/port-channel (\d+)$/); #line 14
    if (m|(fc\d+/\d+)\s+\[(\w+)\]|)  {
            print "dbg: \$pc_name:'$pc_name' \$1:'$1' \$2'$2'\n";
            $Rec->{$pc_name}->{$1} = $2;
   }
    $key = $1, next if (/interface port-channel (\d+)$/); # line 17
    $hash->{$key}->{$1} = $2 if (/switchport description To (\w+) ([\d\.]+)/); #line 18
}