sort {   $a->{int(substr($quantum{$id},2,2))} <=> $b->{int(substr($quantum{$id},2,2))}
                  || $a->{int(substr($quantum{$id},0,2))} <=> $b->{int(substr($quantum{$id},0,2))} }