use strict;
use warnings;

use Data::Dumper;

open my $csvFH, q{<}, \ <<__EOD__ or die $!;
dsd,sdfjk,192.168.102.120,,,"autodiscover-s.outlook.com/",,,
wwfefwe,gfr,192.168.101.208,,,"logmeinrescue.com/",,,
xxd,erer,192.168.100.23,,,"a.n.other.net/",,,
sir,ferutr,192.168.102.120,,,"outlook.office365.com/",,,
thj,,192.168.101.208,,,"logmeinrescue.com/",,'
__EOD__

my %ipURL;
while ( <$csvFH> )
{
    my( $ip, $url ) = ( split m{,} )[ 2, 5 ];
    $ipURL{ $ip }->{ $url } ++;
}

close $csvFH or die $!;

print Data::Dumper->Dumpxs( [ \ %ipURL ], [ qw{ *ipURL } ] );