Select Code to Download

while (defined(my $intensities = $INTENSITY_FILE->getline())) {
    my @intensities=split(/\t/,$intensities);
...
    push(@final_array,(@intensities[@index_intensities]));
    print OUTFILE join("\t",@final_array);
}