for ($a=0; $a<length($finalStream);$a+=8 )
   {
     my $bits = substr ($finalStream,$a,8);

     my $length = 8 - length($bits);
     for (1..$length){$bits.=0}
     my $hex = pack( 'H*', $bits );
     $HEX.=$hex;
   }