for $i (keys %data) {
  push (@ips, $i);
}