for my $ip (...) {
   my $res = ...;
   my ($image) = ...;
   print("$ip: $image\n");
}