Select Code to Download

my @a = qw/one/;
$~ = "TEST";
...
   shift @a
---------
.

Use of uninitialized value in formline at p.pl line 10.
---+++---
a: one
---------

a: one two three