I stopped reading when I hit here: qw($_[0] $_[1] $_[2]).

Do you want a list that consists of three elements, the first of which is literally a dollar, underscore, left bracket, zero, right bracket?

Your code appears to be random snippets cut-n-pasted into the same file, without any real understanding of what each piece does. Perhaps you should start with a good tutorial book (I can recommend a couple {grin}), and work through the exercises slowly and carefully.