my @domains = qw( thisun.com thatun.net );

my %time_of_ip;
$time_of_ip{ @domains } = [];
for (@domains) {
    push @{$time_of_ip{$_}}, timings($_);
}

sub timings {
    my $ip = shift;
    #whatever
}