Select Code to Download

use Tie::File;
use strict;
...
        print @a
    }
}

use IO::File;
use strict;
...
    no warnings;
    print join( "\t", @a ), "\n";
}