Hi,

Try this:

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

$ARGS{LineItem} is a Reference to an Array, so you first need to dereference it.

Take a look at http://www.masonbook.com/book/chapter-2.mhtml#TOC-ANCHOR-11

Regards,

|fire|