#push @IDsLens, $ID2;
    #push @IDsLens, $len2;
    $IDLen_hash{ $ID2 } = length( $ID2 );
...
    #my %IDLen_hash = @IDsLens;