#!c:/perl/bin/perl -w
use strict;

#Declare variables
use vars qw(%hash $key $value);

#Open the file with data in it
open FILE, "info.log";

#Create a hash of hashes of companies/files
while (<FILE>) {
$hash{$4}{$5}++ while (/(.*?),(.*?),(.*?),(.*?),(.*?),(.*?)+/g);
}

#Show the results
foreach my $company (keys %hash) {
	print "Company: $company\n";
	print "\t$key accessed $value times.\n" while (($key,$value) =  each %{$hash{$company}});
	print "\n";
}