open LOG, "< $log" or die "Can't open $log: $!"; # Uncommented
  while (<LOG>){ # Changed filehandle name
    push (@data, $_) if $_ =~ /$ip/;
  }
close LOG; # Uncommented