my @x = ( 1, 2, undef );
$x[2] = $x[0] + $x[1];

print @x, "\n";