... pop @lines; chomp(@lines); my $hist = join '', @lines; ...