Select Code to Download

use Test::More q(no_plan);

...
is( ngram2number( $hex, $_ ), hex( $_ ), "$_ in hex matches" )
    for ( glob '{0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f}'x2 );