@a = unpack(A10, $some_string);