qw stands for "quoted words", and it will produce a list.

When you assign the result of qw to a scalar, it will get the last element of the list.

$ perl -le '$x = qw(a b c); print $x'
c

$ perl -le '$x = q(a b c); print $x'
a b c
[download]

Replace qw() with q() and all will be well.