foreach (values $ARGS{LineItem}) {
    $SQL->execute(
        $PONum,
        $ARGS{"first-${i}"},
        $ARGS{"second-${i}"},
        $ARGS{"third-${i}"}
    );
}
[download]

Where is $i coming from shouldn't you be using foreach my $i (values $ARGS{LineItem}) I may be missing something though.