buffer1 .= buffer2;

##</code><code>##

     buffer =~ s/\s+$//;

##</code><code>##

    for(ix=0;ix<=5;ix++) {
: 
:

##</code><code>##

for(ix=0;ix<=$#buffer;ix++){
      $buffer[$ix]='\0';
}