my $tmp_log = ($Output{host} ||= []);
push @$tmp_log, $data;
if (10 < @$tmp_log) {
  shift @$tmp_log;
}

##</code><code>##

unless (exists $Output{host}) {
  $Output{host} = [];
}
my $tmp_log = $Output{host};