for my $Accession (@Accession) {
    for my $GI (@GI) {
        if ($Accession =~ $GI) {
            print "$GI\n";
            last;
        }
    }
}