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