my $groups_hr = find_groups { $_->{'name'} } @rows;

for my $k ( sort keys %$groups_hr )
{
	print "$k\t" . @{$groups_hr->{$k}} . "\n";
}