Select Code to Download

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

    @thisrecord{@columns} = @fields;

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