my %record;

while (<FILE>) {
  if (/----switchname----/) {
    chomp($record{switchname} = <FILE>);
  }
  elsif (/^port-channel (\d+)/) {
    $record{channel} = $1;
  }
}