my @unique = do { my %seen; grep { !$seen{$_->{name}}{$_->{college}}++ } @students};