my %h = ();
foreach (0..$#FIELDS) {
   $h{$FIELDS[$_]} = $row[$_]
}
$result = \%h;