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

while(<DATA>){$a->{join' ',(split)[5,9,10]}++}print join' - ',split,$a->{$_}."\n"for sort keys%$a;