Select Code to Download

my %data;
while ( more data ) {
...
    # for doing domain-from-ip lookups.
    $data{$ip}{'domain'} = $domain;
}

...
foreach my $time ( @{$data{$domain}{'seconds'}} ) {
   print $time;
}