my $a;
$a = pack($a, 1, 2, 3)
