my  @Top =
     sort { $a <=> $b }
        map { values %{$_} } values %data;