lanx@nc10-ubuntu:~$ perl -e '$r={a=>1};print %{$r;},"\n"'
a1
lanx@nc10-ubuntu:~$ perl -MO=Deparse,p -e '$r={a=>1};print %{$r;},"\n"'
$r = {'a', 1};
print %{$r;}, "\n";
-e syntax OK
lanx@nc10-ubuntu:~$ perl -MO=Deparse,p -e 'print %{ $r={a=>1};$r; },"\n"'
print %{$r = {'a', 1};
$r;}, "\n";
-e syntax OK
lanx@nc10-ubuntu:~$ perl -e 'print %{ $r={a=>1};$r; },"\n"'
a1

##</code><code>##

  DB<100> print " @{ [ 1..10 ] } "
 1 2 3 4 5 6 7 8 9 10 

##</code><code>##

  DB<106> print " @{ $a++; [1..$a ] } "
 1 
  DB<107> print " @{ $a++; [1..$a ] } "
 1 2 
  DB<108> print " @{ $a++; [1..$a ] } "
 1 2 3