#perl 5.8.8
#code to get data from database not included

my $ppiquery1 = "select sequence from seq_table where seq_id = $ppi_pm_id AND LENGTH(seq) = 25";
my $ppiquery2 = "select sequence from seq_table where seq_id = $ppi_mm_id AND LENGTH(seq) = 25";
my $mpiquery1 = "select sequence from seq_table where seq_id = $mpi_pm_id AND LENGTH(seq) = 25";
my $mpiquery2 = "select sequence from seq_table where seq_id = $mpi_mm_id AND LENGTH(seq) = 25";
my @row3 = $dbh->selectrow_array($ppiquery1);
	unless (@row3) { die "No seq for $ppi_pm_id?\n"; }
my @row4 = $dbh->selectrow_array($ppiquery2);
	unless (@row4) { die "No seq for $ppi_mm_id?\n"; }
my @row5 = $dbh->selectrow_array($mpiquery1);
	unless (@row5) { die "No seq for $mpi_pm_id?\n"; }
my @row6 = $dbh->selectrow_array($mpiquery2);
	unless (@row6) { die "No seq for $mpi_mm_id?\n"; }
my ($ppi_pm_seq) = @row3;
my ($ppi_mm_seq) = @row4;
my ($mpi_pm_seq) = @row5;
my ($mpi_mm_seq) = @row6;