in reply to Mandatory Fields
Make it a bit more readable while you're at it.
$Mandatory_Fields= '*' . join( '*', 'Customer Name', 'Customer Email', 'Phone Number', 'Payment Method', 'BillingAddressLine1', 'BillingCity', 'BillingPostCode', param( 'Payment Method' ) eq 'Credit Card' ? qw( CardStartDate CardIssueNo CardSecurityCode ) : () );
Update: I see that Anonymous wants a '*' before each entry including the first one, not just as a delimeter.
In Section
Seekers of Perl Wisdom