my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber department_id
cp_id language_id taxzone_id globalproject_id transaction_description currency_id delivery_term_id), @columns),
my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber department_id
cp_id language_id taxzone_id globalproject_id transaction_description currency_id delivery_term_id), @columns),