my @a1 = qq/one two three four five/;

This probably isn't doing what you think it's doing: it creates a single string* 'one two three four five'.

To create a five-element array, use qw instead of qq.

* Update: and asssigns it to $a1[0].