if ( $dups && $^W ) {
        foreach ( split(/\n+/, $dups) ) {
            warn($_."\n");