use strict;
use warnings;

my @fields;

format =
@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<
@fields[ 0 .. 2 ]
@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<
@fields[ 3 .. 5 ]
@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<
@fields[ 6 .. 8 ]

.

while ( <DATA> )  {
  @fields = split /,/;
  write;
}

__DATA__
1,fred,jones,555-1212,123 Main St.,Boston,MA,00001,test@test.com
2,mary,smith,222-1515,321 Least St.,Hanover,NH,02022,testmary@test.com
3,jack,least,122-5511,231 Last St.,Franklin,CT,06001,nomail@test.com