Select Code to Download

[ defined earlier ]
@fieldname = qw(Count Type Message);
...
   $record[$row]{$fieldname[$i]}=$line[$i];
}

while ( $line=<DATA> ) {

}