[ defined earlier ]
@fieldname = qw(Count Type Message);

[ in the loop ]

my @line=split /,/;
foreach (my $i=0; $i<=$#line; $i++) {
   $record[$row]{$fieldname[$i]}=$line[$i];
}


##</code><code>##


while ( $line=<DATA> ) {

}