my ($ssn, $empno, $empname, ...) = unpack "A10 A20 A12 ...", $buffer;