Select Code to Download

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

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