#!/usr/bin/perl 
use warnings; 
use strict; 

our %pages; 
foreach my $line (<>) { 
	my ($ip, $date, $time, $page, $size) = split /\s+/, $line; 
	$pages{$page}++; 
} 

while (my($page, $count) = each %pages) { 
	print "$page was accessed $count times\n";
}