Select Code to Download

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

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

sassign(\$r, scalar lassign([\$a, \$b], range (0, 11)))
sub lassign {
...
    $$rhs = $lhs;
    $$rhs;
}