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