Select Code to Download

while (<$fh1>) { # Reading first hash
    my ($id, undef, undef, undef, $seq) = split;
...
    $bow1{$id} = $seq;
}
close $fh1 || die "Failed to close $file1 : $!";