my @carrierLOG = (1, "hello", 5);
my $sv_index = 0;

$sv_index = $#carrierLOG + 1 if ($sv_index == 0);
$carrierLOG[$sv_index] = "goodbye";

print "@carrierLOG\n";

--output:--
1 hello 5 goodbye
[download]