Select Code to Download

my @sorted_by_temp_asc = sort { tricky_sort($a,$b,'T') } @data;

...

   return ( $a_dat{$field} <=> $b_dat{$field} );
}