@a = ()[3, 5, 6];
@b = @c[3, 5, 6];
say 0 + @a;
say 0 + @b;
__END__
0
3

##</code><code>##

$r = ($a, $b) = 0 .. 11;

##</code><code>##

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;
}