Select Code to Download

%data = (
  serial_number => {
...
  },
  # etc.
);

  @serial_order = reverse sort { $data{$a}{order_stamp} <=> $data{$b}{
+order_stamp} } keys %data;