You could get golfy about it too*. (using McDarren's split)

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

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

* sorry, I know this isn't particularly useful, but I'm a bit bored here.