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