Select Code to Download

my %emails = ();
foreach ( split(/\%/, $emailcolumn) ) {
...
  }
} # foreach
# do something with %emails

%emails = ( 
  SMTP => [ 'makeusbetter@domain.com', ...],
...
  smtp => [ ..., ...],
  CCMAIL => [..., ...]
          );