use Data::Dumper;
warn Dumper \%ARGS;
warn Dumper $ARGS{LineItem};

##</code><code>##

<%args>
        $LineItem=>[]
</%args>
<%init>
  warn join ":", @$LineItem;
  ...
</%init>