use strict;
use warnings;

my (%hash, $pairs);

while (<DATA>) {
    chomp; $pairs += $hash{$_}++;
}

print $pairs;

__DATA__
string1
string2
string3
string1
string1
string7
string2