my $i_cnt = () = sprintf("%b", $i) =~ /1/g;
my $u_cnt = () = sprintf("%b", $u) =~ /1/g;

##</code><code>##

my $i_cnt = sprintf('%b', $i) =~ tr/1//;
my $u_cnt = sprintf('%b', $u) =~ tr/1//;