my $read = 1;
my @output;
foreach my $line (@array){
  if($line =~ /HEAD/){
    $read=0;
  }
  elsif($line =~ /TAIl/){
    $read=1;
  }    
  push @output, $line if $read;

}