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;