my %seen;
while ( my ( $user, $ip ) = next_pair() ) {
  next if $seen{ $user }{ $ip }++;
  insert( $user, $ip );
}