open LOGFILE, $logfile;
while ($IPAddress = <LOGFILE>) {
  my $orig_rec = $IPAddress;
  $IPAddress=~s/(.*)-(.*)-\s//g; # Remove all other info except for IP Address
  push (@ParsedIPLogArray, $IPAddress);	# Add IP address into a new array
}

$totalIPLogElements=$#IPLogArrayCopy; 

for ($x=0; $x <= $#ParsedIPLogArray; $x++) {
  $hash{$ParsedIPLogArray[$x]}++; # Increment IP occurance counter
  unless ($hash{$ParsedIPLogArray[$x]} > 1) {
    $elementNumber = $x + ($#IPLogArrayCopy-$totalIPLogElements);
    push (@IPLogArrayCopy, $originalrecord);
  }
}

print @IPLogArrayCopy;