qwurx [shmem] ~> perl w.pl
Use of uninitialized value $a in print at w.pl line 4.