Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close IN;

   print "@line";

 
foreach (@line) {
        ($one,$two,$three,$four,$five,$six,$seven) = $_;
       }