DB<114> use warnings; @a->[2]
Using an array as a reference is deprecated ...