my %freq = ();
foreach my $datum (@data) {
    $freq{ sprintf("%d    %s", @$datum) }++;
}