for my $seq ( @seqs ) {
    my @bits = unpack 'a3a3a3', $seq;
    ## $bits[ ... ]; 
}