Hi
The transpose function returns nothing
What are u trying to sdo in the transpose?

The unpack should have a equal pack statement to
accomplish your task. just add
pack("C*",@out)
in your transpose function
However, the question still remained in the back of my mind,
nagging at me like a forgotten birthday. Can perl's
weakly typed scalars and automatic type conversions accomplish this task without trampling
my values and having to resort to bitstrings?
Perl offers you the complete flexibility. Make sure that we dont misuse it and blame on it.

Thanks
Sasi Kumar