Select Code to Download

$port_channels[0]{ name    => "port-channel 1"
                 , members => [ 'fc2/5'
...

$port_channels[1]{ name    => "port-channel 3"
                 , members => [ 'fc1/1' ]      };

$port_channels{1}{ members => [ 'fc2/5'
                              , 'fc1/5' ] };

$port_channels{3}{ members => [ 'fc1/1' ] };

$port_channels{1}[ 'fc2/5'
                 , 'fc1/5' ];

$port_channels{3}[ 'fc1/1' ];

use strict;
use warnings;
...
    First operational port is fc1/1
    1 port in total, 1 port up
    Ports:   fc1/1    [up] *

$VAR1 = {
          '1' => [
...
                   'fc1/1'
                 ]
        };