Select Code to Download

use strict;
use vars qw($outfile);
open(DATA, $ARGV[0]) or die "Couldn't open $ARGV[0]: $!";
...
    $hash{$first} .= ' ' . "$bits[1] $bits[2]\t";
    }
print OUT "$_\t$hash{$_}" for @order;