my(@stuff) = unpack $packed, "A9"; # Wrong!