#!/usr/bin/perl -naF/,/
$seen{"@F[4,3]"}++;END{@u;print"@u has accessed $s $t times.\n"while($_,$t)=each%seen,($s,@u)=split}