for my $i (@$ARGS{LineItem}) {
    $SQL->execute(
        $PONum,
        $ARGS{"first-${i}"},
        $ARGS{"second-${i}"},
        $ARGS{"third-${i}"}
}