foreach my $id (sort keys %quantum) {
    foreach my $date (
            sort {   int(substr($quantum{$id}{$a},2,2)) <=> int(substr($quantum{$id}{$b},2,2))
                  || int(substr($quantum{$id}{$a},0,2)) <=> int(substr($quantum{$id}{$b},0,2)) } 
            keys %{$quantum{$id}}) {
    }
}