$temp = pack 'A3 A4 A5', @data;
@data = unpack 'a3 a4 a5', @data;