Select Code to Download

use Tie::DBI;
use List::Compare;
...
}

exit;

my %count;
#tie hash to the MySQL DB
...
    print $intersection, "\n";
    print $h{$intersection}{value}, "\n";
}

print $h{$intersection}{value}, "\n";

id|k        |value
--+---------+--------------
# |theword  |1 (word count)

the
20