$ perl -e 'my @arr=(1,2,3); $arr[-1]=4; print join " ", @arr, "\n";'
1 2 4
$