my @email = split(/\,/,$string);
 for my $var( 0 .. $#email )
 {    print "$email[$var]\n";
      .....   # put additional code here 
 }