while (<INFILE>) {
    ( my $quarter, $_) = split ':';
    @{$HoH{$quarter}}{@countries} = split " "; # repaired typo, ++petral
}