Select Code to Download

#!/usr/bin/perl -w 
use strict;
...
    my @data = ();
    push @data, \%thisrecord;
}

sort { $b->{ Estimated_Cost } <=> $a->{ Estimated_Cost } } @data;