Как при возврате из sub отлавить эту ошибку тоесть не делать return во втором случае.
#1. Все ок
$test1 = ["test1"];
$test2 = ["test2","test3"];
name($test1, $test2);
#2. Ошибка при возврате
name(["test1"], ["test2","test3"]);
sub name {
my($left, $right) = (shift, shift);
#код...
return $left, $right;
}