my $string = pack ("A100", $structure);