in reply to subroutine passing array as named parameter

You want to do:

my ($args) = @_;
The
my $args = @_;
Is setting $args to the length of @_

/J\