sassign(\$r, scalar lassign([\$a, \$b], range (0, 11)))
sub lassign {
    my ($rhs, $lhs) = @_;
    for (my $i = 0; $i < @$rhs; $i ++) {
        $$rhs[$i] = $$lhs[$i];
    }
    wantarray ? map {$$_} @$lhs : scalar @$rhs;
}
sub sassign: lvalue {
    my ($rhs, $lhs) = @_;
    $$rhs = $lhs;
    $$rhs;
}