use Data::Alias;

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