...
  # calculate $logtype
  $hash_ref->{$logtype}++;

##</code><code>##

if($_ =~ /\s+Description.*$/) {
  chomp($description = <DATA>);
}

##</code><code>##

if($_ =~ /\s+Description.*$/) {
  while(chomp($description_line = <DATA>)) {
    last if $description_line eq "";
    $description .= $description_line
  }
}