Select Code to Download

use strict;
use warnings;
...
delete $hashA{ max keys %hashA }->{ q{1734789} };

print Data::Dumper->Dumpxs( [ \ %hashA ], [ qw{ *hashA } ] );

%hashA = (
           '11.01' => {
...
                       '1798761' => 147
                     }
         );