while (<FILE1>) {
    my ($ID1, undef, undef, undef, $Seq1) = split;
    $bow1{$ID1} = $Seq1;   # ID is hash key, Seq is hash value
}