foreach my $i (0..14) {
  my($ip,$times) = @{$ip[$i]};
  whois($ip);
  evidence($ip,$times);
}