sub distance { # shift shift is faster than $_[0] $_[1] return Text::Levenshtein::XS::xs_distance( [unpack('U*', shift)], [unpack('U*',shift)] ); # <-- this }