Recherche:

Il est normalement possible de corriger l'erreur en identifiant une ligne qui ne contient pas de données. Pour cela, le test

... if defined $key && @col_values;
opère déjà une partie du...

Je crois que j'ai trouvé : lorsque les IN sont trouvés, ils sont mis dans $var{clé}, puis, quand les OUT sont trouvés, ils sont mis dans $var{clé}, mais sans conserver les anciens.

Pour corriger,...

A la suite de ça, affiche ceci :

x $var{"Gi0/1"}
Dans les clés enregistrées, je constate qu'il y a des lignes retournées par ta commande ssh qui ne contiennent pas de données, il faudra soit les...

Les erreurs en ligne 42 ne devraient pas être importante (et pourrons être traitées après avoir corrigé le problème principal) : elles sont sans doute dues aux lignes qui ne contiennent pas de...

Tu devrais sans doute écrire :

foreach my $line(<$chan2>) {
au lieu de

foreach my $line($chan2) {

Montre le début du script jusqu'à cette ligne, car cette ligne est de toute façon erronée.

Donc à présent, part du mon script et modifie cette ligne

foreach my $line (@ssh_return) {
pour l'adapter au retour de ta commande ssh, sans rien changer ailleurs.

Essaye ce script (sans le modifier) et dit moi s'il retourne bien la donnée.

#!/usr/bin/perl

use strict;
use warnings;

use feature qw(:5.10);
use List::MoreUtils qw(pairwise);