sub load_seqs{
    local $ARGV = qw /q1.fa q2.fa/;
    while(<>) {
        push @{$_[0]}, $_ if m/^(?!\>).*\n$/;
    }
}