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

##</code><code>##

@seqs = map[ unpack '(a3)*', $_ ], @seqs;
for my $ref ( @seqs ) {
    ## $ref->[ ... ]
}