Select Code to Download

open(I1,$ARGV[0]); 
my %info;
...
    $info{$secondsecond}=();
    }
}

while (my $line = <I1>) {
    if ($line !~ /#/) {    
    my ($numbers,$data) = (split(/\t/, $line));    
    foreach my $dat ($data){
    my ($string, $int) = (split(/\;/, $dat));