One quick note. my $one, $two, $three = @_; probably does not do what you want it to do. Check out the dump of how it's actually being parsed by perl:

$ perl -MO=Deparse,-p -le 'my $one, $two, $three = @_'
-e syntax OK

(my($one), $two, ($three = @_));
[download]

We see that the syntax is "OK", meaning it's not a syntax error, but it doesn't really make sense to want to do that. You probably meant my ($one, $two, $three) = @_;.