Select Code to Download

foreach $item (@xray){ 
$item =~ s/^ *//g;
...
$item =~ s/\s+/ /g;
push(@clean, $item);
}

open (FILE1, "$file1_val") or die;
open (FILE2, "$file2_val") or die;
...
close FILE1;
close FILE2;
}