use constant T1 = '...';
use constant T2 = t1 . '...';
use constant T3 = T1 . '...';
# or 
use constant T3 = T2 . '...';

...

my $packed = pack ( T1, T2, T3 )[ condition() ], @bits;