package DNAappend;
use strict;
use warnings;

sub DNAappend {
  my ($head,$tail)=@_;
  return ($head.$tail)
  }
1;