Help for this page
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 }++;