for my $i (0..$#fields)
    {
        $data[$index-1]->{$fields[$i]} = $values[$i];
    }

##</code><code>##

  @{ $data[ $index-1 ] }{ @fields } = @values;