my ($from, $dept, $to, $arr) = unpack('x23a4x2a4x3a4x1a4', $_);