#!/usr/bin/perl
# digin.pl

use strict;
use warnings;

my @domains = qw(
    yahoo.com
    google.com
);

for my $query (@domains) {
   print "$query\n";
   my @answers = qx{dig -t aaaa +noall +answer $query};
   for my $entry (@answers){
       printf "  %s", $entry;
       my $ipv6 = (split /\s+/, $entry)[4];
       my @pingout = qx{ping6 -c3 $ipv6};
       for my $lineout (@pingout){
           printf "    %s", $lineout;
       }
   }
   print "\n";
}

perl digin.pl

yahoo.com
  yahoo.com.            144     IN      A       98.138.253.109
    PING 98.138.253.109 (98.138.253.109) 56(84) bytes of data.
    64 bytes from 98.138.253.109: icmp_seq=1 ttl=51 time=63.1 ms
    64 bytes from 98.138.253.109: icmp_seq=2 ttl=51 time=54.6 ms
    64 bytes from 98.138.253.109: icmp_seq=3 ttl=51 time=51.0 ms

    --- 98.138.253.109 ping statistics ---
    3 packets transmitted, 3 received, 0% packet loss, time 2003ms
    rtt min/avg/max/mdev = 51.068/56.291/63.112/5.052 ms
  yahoo.com.            144     IN      A       206.190.36.45
    PING 206.190.36.45 (206.190.36.45) 56(84) bytes of data.
    64 bytes from 206.190.36.45: icmp_seq=1 ttl=47 time=52.0 ms
    64 bytes from 206.190.36.45: icmp_seq=2 ttl=47 time=56.0 ms
    64 bytes from 206.190.36.45: icmp_seq=3 ttl=47 time=56.6 ms

    --- 206.190.36.45 ping statistics ---
    3 packets transmitted, 3 received, 0% packet loss, time 2002ms
    rtt min/avg/max/mdev = 52.075/54.912/56.644/2.022 ms
  yahoo.com.            144     IN      A       98.139.183.24
    PING 98.139.183.24 (98.139.183.24) 56(84) bytes of data.
    64 bytes from 98.139.183.24: icmp_seq=1 ttl=51 time=84.8 ms
    64 bytes from 98.139.183.24: icmp_seq=2 ttl=51 time=90.2 ms
    64 bytes from 98.139.183.24: icmp_seq=3 ttl=51 time=89.3 ms

    --- 98.139.183.24 ping statistics ---
    3 packets transmitted, 3 received, 0% packet loss, time 2003ms
    rtt min/avg/max/mdev = 84.845/88.155/90.265/2.382 ms

google.com
  google.com.           300     IN      A       216.58.217.46
    PING 216.58.217.46 (216.58.217.46) 56(84) bytes of data.
    64 bytes from 216.58.217.46: icmp_seq=1 ttl=55 time=20.6 ms
    64 bytes from 216.58.217.46: icmp_seq=2 ttl=55 time=21.2 ms
    64 bytes from 216.58.217.46: icmp_seq=3 ttl=55 time=23.9 ms

    --- 216.58.217.46 ping statistics ---
    3 packets transmitted, 3 received, 0% packet loss, time 2003ms
    rtt min/avg/max/mdev = 20.637/21.949/23.921/1.424 ms