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