Well, let me address a couple points first.

@{$hashCompany{$vars[1]}} = join(',',@vars[0,1]);
[download]

This isn't a hash of arrays. It is just a hash of scalars. You don't need to use @{} because join(',',@vars[0,1]) is not a list; it is just a string.

You don't need to make perl interpolate $data[0] - just drop the quotes.

So, since we are only comparing two hashes, you have already mentioned one technique. Check out Re: diff of two hashes. for other ways to compare hashes (show keys in first hash that are not in second, show keys in second hash that are not in first).

Russ
Brainbench 'Most Valuable Professional' for Perl