for ( 1 .. 2 ) {
   my $r = \"abc"; 
   say $$r;
   $$r = "def";
}