my %thisrecord = map { $columns[$_] => $fields[$_] } ( 0 .. $#fields );

##</code><code>##

    @thisrecord{@columns} = @fields;

##</code><code>##

for my $items (sort {$b->{Estimated_Value} <=> $a->{Estimated_Value}} @data) {
    ...
}