$MAIN[$seq_unique][$seq_position] = [@array[1 .. 21]];
print "@{$MAIN[$seq_unique][$seq_position]}";