Select Code to Download

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

  next if $seen{ $user }++;

  next if $seen{ $ip }++;

  next if $seen{ uc $user }{ $ip }++;