#!/usr/bin/perl -w
use Tie::IxHash;
tie %linehash, Tie::IxHash;
use Tie::RecursiveCI;
tie %linehash, 'Tie::RecursiveCI';

THE REST OF THE SCRIPT GOES HERE...