my @seq1 = load_seqs( "q1.fa" );
my @seq2 = load_seqs( "q2.fa" );

sub load_seqs{
    open my $fh, "<", shift or die "cannot open sequence file: $!";
    return grep { /^(?!\>).*\n$/ } <$fh>;
}