@a1 = qw (ID1 len1 dom1 domlen1 seq1);
@a2 = qw (ID2 len2 dom2 domlen2 seq2);
@a3 = qw (ID3 len3 dom3 domlen3 seq3);
$line1 = /@a1;
$line2 = /@a2;
$line3 = /@a3;
@array =qw ($line1 $line2 $line3); # an array of array references.