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

see also perldoc -q "How can I remove duplicate elements from a list or array?"