Select Code to Download

my @result;
foreach my $c (@array) {
...
  push @result,$x,$y);
}
print join("\t",@result);

while (<SFILE>) {
...
...
        ... #process a data line
    }
}