my @x = (1, 2, undef) ;
my ($a, $b, $c) = @x ;
$c = $a + $b ;
@x = ($a, $b, $c)  ;
print "@x\n" ;