my $id = q/11.5/;
@{$hashA{$id}} = [ grep { $_ != 1734789 }, @{$hashA{$id}} ];