sub reader {
  foreach my $rows (@$data) {
    my %GenericData;
    @GenericData{ @rawFields } = @$rows; # NOTE added
    push @rawRecords, \%GenericData;
  }
return \@rawRecords;