Pour corriger cela, vous pouvez juste changer les deux « elsif (l'eq de $next » raye pour être :
elsif ($next et eq de $next…
Cela vérifiera pour s'assurer que $next est défini avant l'essai de le comparer.
Quant à initialiser une variable dans le Perl, cela signifie juste lui assigner une valeur. L'avertissement indique juste que $next est non défini (l'un ou l'autre parce qu'il n'a pas été assigné à pourtant ou parce que c'était explicitement undef'd).