Select Code to Download

while(<>){ 
    if (/^#+/){NEXT;}
...
    }
    }
    print "Fished establishing hashs.\n";

my %row;
while(<>){ 
...
    my @data=split;
    $row{ @data[0,3,4] }=$data[5];
}