while( <> ){ print "repeated address $_" if $address{$_}++; }