my $packed = join '', unpack '(a3x)*', pack 'l*', @sint24s;