my ($order_num) = sprintf "%lx",time; # Generates the order number
	
# Adds ON (Order Number) infront of the generated number and makes everything upper case
$order_num = uc("ON$order_num");	

my ($reg) = $dbh->prepare('INSERT INTO registrations (order_num, customer_id, payment_type, icode) VALUES (?, ?, ?, ?)');

foreach my $t (@icodes) {

   $reg->execute($order_num, $customer_id, 'CREDIT', $t);
}