DB<71> use warnings; $a=(1..2)[9]

  DB<72>