Select Code to Download

my %INPUT_DATA = (
  'DEVICE1_NAME' => [
...
                                      },
                    ],
);

leg:isadmin># show xdsl operational-data line 1/1/5/30 detail

...
leg:isadmin># show xdsl operational-data line 1/1/7/23 detail

leg:isadmin># show xdsl operational-data line HASH(0x53e3a8) detail

$VAR1 = 'DEVICE1_NAME';
$VAR2 = [
...
                        }
          }
        ];

foreach my $current_port ( @{$INPUT_DATA{$device_name}} ) {
    my @CURRENT_PORT_STATUS = $session->cmd( "show xdsl operational\-d
+ata line $current_port detail" );
}