This would work like a charm, except that my data is more than likely not going to be less than 16. With the changes you suggested, here is the output:

>pack.pl 17
var: 17
temp: 11
packed:
temp: 1
unpacked: 1
>
[download]

thanks anyway,
thor