foreach my $pos (0..$#{$ref_values} ) {
  $data{$ref_fields->[$pos]} = $ref_values->[$pos];
}