#! perl -slw
use strict;
use Inline::Files;

my( %file1, %facBySeq, %seqByFac );

while( <FILE_1> ) {
    my( $fac, $seq, $pos ) = split ' ';
    push @{ $file1{ $fac }{ $seq } }, $pos;
    $facBySeq{ $seq }{ $fac } = 1;
    $seqByFac{ $fac }{ $seq } = 1;
}

while( <FILE_2> ) {
    my @facs = split ' ';
    for my $seq ( keys %{ $seqByFac{ $facs[ 0 ] } } ) {
        if( exists $facBySeq{ $seq }{ $facs[ 1 ] }
        and exists $facBySeq{ $seq }{ $facs[ 2 ] } ) {
            for my $pos1 ( @{ $file1{ $facs[ 0 ] }{ $seq } } ) {
                for my $pos2 ( @{ $file1{ $facs[ 1 ] }{ $seq } } ) {
                    for my $pos3 ( @{ $file1{ $facs[ 2 ] }{ $seq } } ) {
                        print join ' ', $facs[0], $seq, $pos1, $facs[ 1 ], $seq, $pos2, $facs[ 2 ], $seq, $pos3;
                    }
                }
            }
        }
    }
}

__FILE_1__
A seq1 20
B seq2 25
B seq2 80
B seq1 40
C seq1 25
D seq2 30
E seq2 45
__FILE_2__
A B C
B D E

##</code><code>##

[ 8:24:45.48] C:\test>1109868.pl
A seq1 20 B seq1 40 C seq1 25
B seq2 25 D seq2 30 E seq2 45
B seq2 80 D seq2 30 E seq2 45