foreach (@list)
{
#       my $entry=time();
        $linecounter++;
        #split the log entry up into an array; source IP is field 7; URL is 31; #PALO URL LOGS ONLY!
        my @message=split(',',$_);
        my $ip=$message[7];
        my $url=$message[31];

        #Check if we've seen this IP already in the Hash, if not add it to the hash;
        if (!(exists $ipURL{$ip}))
        {
#               print "Doesn't Exist... adding\n";
                my @urlList;
                push(@urlList,$url);
                $ipURL{$ip}= \@urlList;
        }
        else
        {
#               print "Defined\n";
                my @urlList=@{$ipURL{$ip}};
                push (@urlList,$url);
                $ipURL{$ip}=\@urlList;
        }
        if (!($linecounter % 50000))
        {
                print "Lines: $linecounter\n";
        }

}
        formatOutput(\%ipURL);
#       print Dumper \%ipURL;


##</code><code>##

 perl urlListbyIP.pl
List Length:5
Formatting Output...
$VAR1 = {
          '192.168.102.120' => [
                                 '"autodiscover-s.outlook.com/"',
                                 '"outlook.office365.com/"'
                               ],
          'Source address' => [
                                'URL/Filename'
                              ],
          '192.168.101.208' => [
                                 '"logmeinrescue.com/"',
                                 '"logmeinrescue.com/"'
                               ]
        };
List End:7
Execution Time: 0.01 s