#!/usr/bin/env perl

use strict;
use warnings;

my %h;
++$h{$_} for map { chomp; $_ } `zcat @{[glob '*.gz']} | sed 's/[<> ]//g'`;

use Data::Dump;
dd \%h;