# this is in a loop that iterates through the file
# and at some point it runs across:
      /(\S+)\s?=?\s?\[(.+)\]$/  && do {
                                $hash{$1} = split /,/, $2;
                                next;
                                };

##</code><code>##

Use of implicit split to @_ is deprecated

##</code><code>##

      /(\S+)\s?=?\s?\[(.+)\]$/  && do {
                                $hash{$1} = @{[ split /,/, $2 ]};
                                next;
                                };