@arr_file=("R25_s_5_seq_18-26_alignment.txt","R20_s_6_seq_18-26_alignment.txt");
foreach $file in @arr_file
{
open(FILE, $file);
while(defined($line=<FILE>))
{
@arr_words=split(/\s+/,$line);
print FINAL $arr[2];
}
close FILE;
}
close FINAL;