use strict;
use warnings;
use DBI;

my $inData1 = <<DATA1;
G_00160 F_02571
G_00161 F_01082
G_00162 F_00034
G_00163 F_00035
G_00164 F_00036
DATA1

my $inData2 = <<DATA2;
F_00013 G_06670
F_00034 G_00162
F_00035 G_00163
F_00036 G_00164
F_00038 G_00165
DATA2

unlink 'db.SQLite';

my $dbh = DBI->connect ("dbi:SQLite:dbname=db.SQLite","","");

$dbh->do ('CREATE TABLE urci (ci TEXT, ur TEXT)');
$dbh->do ('CREATE TABLE ciur (ur TEXT, ci TEXT)');

my $sth = $dbh->prepare ('INSERT INTO urci (ur, ci) VALUES (?, ?)');

open my $ur_ci, "<", \$inData1;
$sth->execute (do {chomp; split}) while <$ur_ci>;
close $ur_ci;

$sth = $dbh->prepare ('INSERT INTO ciur (ci, ur) VALUES (?, ?)');

open my $ci_ur, "<", \$inData2;
$sth->execute (do {chomp; split}) while <$ci_ur>;
close $ci_ur;

$sth = $dbh->prepare (
    'SELECT * FROM ciur INNER JOIN urci ON ciur.ci = urci.ci AND ciur.ur = urci.ur'
    );
$sth->execute ();

print "$_->{ci} => $_->{ur}\n" while $_ = $sth->fetchrow_hashref ();