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

##</code><code>##

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