Order of evaluation

Lvalue converted to rvalue as late a possible

my $n =666;
print $n * do { $n = 21; 2 } ;

Next